TITLE CPF$4* •REV A• 


PAGE 


I 


000001 
000002 
000003 
000004 

ooooos 

000U06 

000007 

ooooos 

000009 
000010 
000011 
000012 
000013 
000014 
000013 
000010 
000O17 
00001b 
OOOo19 
000020 
000021 
000O22 
000023 
000024 
000023 
000026 
000027 
00002b 


TITLE CPFS4. •KtV A* 

WRITABLE CONTROL STORE (WCS) TEST 
PART NO. 

CPFX4 60133116-001 
CPFS4 60133117-001 
CPFL4 60133118-001 


DESCRIPTION 

ThIs~T 6V~PR0GRAM VERIFIES PROPER OPERATION OF THE LEVEE 6 WRITABLE 
CONTROL STORE (WCS). IT PROVIDES A FIRST LtVEL OF DIAGNOSIS WHEN 
FAILURES ARE DETECTED. AND MAKES FACILITIES AVAILABLE TO SUPPORT 
EXTENSIVE PROBLEM INVESTIGATIONS. 

REVISION HISTORY 

A MAR 1978 ORIGINAL RELEASE 

THIS DOCUMENT AND THt INFORMATION CONTAINED THEREIN IS CONFIDENTIAL AND 
PROPRIETARY TO AND THE EXCLUSIVE PROPERTY OF HONEYWELL INFORMATION SYSTEMS 
INC. IT IS MADE AVAILABLE ONLY TO HONEYWtLL AuTHORUED RECIPIENTS FOR 
THEIR USE SOLELY IN THE MAINTENANCE AND OPERATION OF HONEYWELL PRODUCTS. 
THIS DOCUMENT AND INFORMATION MUST BE MAINTAINED IN STRICTEST CONFIDENCE? 
IT MUST NOT BE REPRODUCED IN WHOLE OR JN PARI? AND IT SHALL NOT BE DIS¬ 
CLOSED TO ANY UTHER PARTY WITHOUT THE PRIOR WRITTEN CONStNT OF HONEYWELL, 
a#*##**##########*#######*####################**##*##*.##**#*##**####*####*'### 
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PROGRAM PREPARATION 

’TH£"RGOT~50URCt"oF THIS PROGRAM* AFTER I HE ADDITION OF t HE APPROPRIAIE 
TITLE AND END STATEMENTS, WAS PROCESSED BY ThE HOST RESIDENT ASSEMBLER 
TO CREATE EITHER SHORT OR LONG ADDRESS FORM (SAF OR LAF) OBJECT TEXT 
AND LISTING, THE OBJECT TEXT WAS FURTHER PROCESSED BY THE HOST 
RESIDENT UNKtK USING THE APPROPRIATE CONSOCc ZV$lIB (VERIFICATION 
SERVICE LIBRARY) TO CREATE A PUNCH SEGMENT CONTAINING AN EXECUTABLE 
MODULE, THE ASSEMBLY LISTING WAS AUGMENTED wJTH CROSS-REFERENCE DATA 
(XREF) , PLUS THE LOAD MAP FROM THE UNKtR TO CREATE A LIST SEGMENT, 
ROuT SAF LAF 


CPFX4 

60135116-001 


CPFS4 

60135117-001 


CPFE4 

60135118-001 


NAME 
DOCUMENT 

DISTRIBUTION 

"~THt~ELEMENTARY ITEMS SUBMITTED TO FED SOFTWARE DISTRIBUTION, BY 

ENGINEERING DESIGN PROCESSING, WERE THE EXECUTABLE LlNKtD IMAGES, ON 
DISKETTE, OF G1SS2 AND GISL2, AND MAGNEUC TAPE IMAGES OF THE 
AUGMENTED LISTINGS. 

REPRODUCTIONS OF THE EXECUTABLE LINKED IMAGEu MAY BE AS DUPLICATE CARD 
DECKS OR AS A MEMBER OF A MULTIPLE MEMBER FluE. IN THE MOST FREQUENT 
CASE, IT WILL BE FOUND AS MEMBER ”SY» (SAF) OR ”LY” (LAF) WITHIN FILE 
"PRQGFILt M OF DISKETTE VOLUME ENTITLED "DI AGS”, 

DISTRIBUTION OF THE LISTINGS, WHICH SHOULD BE AVAILABLE IF ANY COMPLEX 

MAINTENANCE OR REPAIR IS TO ■'*“ --— - —. AL A 

COPY. 

ROUTINE DEMONSTRATION 

"a~m7nIM0M~SAt7sFACT0RY TEST FOR NORMAL OPERA I ION MAY BE OBTAINED BY 
RUNNING TWO PASSES. 

STORAGE 


BE PERFORMED, IS NORMALLY AS A PRINTED 


THIS PROGRAM REQUIRES AT LEAST 8K WORDS OF M*IN MEMORY. 

OPERATION 

~~LOAD~AND START (OR RESTART) THE PROGRAM AT tuCATlON HEX 01U0. THE PROGRAM 
IDENTIFICATION WILE BE DISPLAYED ON THE CONSOLE, THE INITIAL START WILL 
ALSO display; 

THE ZVSLIB REVISION NUMBER 
THE ADDRESS FORM (SAF OR LAF) 

I/O EQUIPMENT DETECTED IN THE SYSTEM 
MEMORY SIZE 

THE ABOVE DISPLAY MUST BE VERIFIED BY THE OPERATOR* IT IS OMITTED 
ON RESTARTS. 

ALSO DISPLAYED INITIALLY, AND DURING tACH RESTART AT HEX 0100? 

THE FOLLOWING IS A TYPICAL RESULT OF LOADING AND RUNNING THE PROGRAM; 


CPFS4 
ZVSLIB 

WDT 
CHAN 
0400 
0480 
0500 
0580 
2000 
MEMORY LOW 


WCS TEST 
REV. 6,00 


— MAR 1978 


REV A 


DEVE 

DSK I 

DSKT 

CONS 

CDR 

iSL 


ID 

2010 
2010 
2018 
2008 
2402 
0000 —- 


MtMORY HIGH 00007FFF 32K 


*THE CONSOLE WILL NOW PRINT THE MESSAGE; 

* 


SUBSEQUENT 


THE 1ST ERROR MESSAGE SHOULD ALWAYS BE CONSIDERED 1ST, 

ERROR MESSAGES COULD BE CAUSED BY PktVIOUS tRROR$. 

IF IN TRANSPARENT MODE, THE CONSOLE WILL PRInT; 

TRANSPARENT MODE - HEX SWITCH SHOULD BE "0" 

IF IN SEQUENTIAL MODE, THE CONSOLE WILE PR INI; 

SEQUENTIAL MODE - HEX SWITCH SHOULD BE "F” 

THEN,DEPENDING ON THE CONFIGURATION, I HE CONSOLE WILL PRINT; 

RAM NQ, 1 PRESENT 
Ok 

RAM NO, 2 PRESENT 
OR 

RAM NO, I PRESENT 
RAM NO. 2 PRESENT 

THE ABOVE MESSAGES MUST BE VERIFIED BY THE OPERATOR. 

THE PROGRAM NOW IS TESTING THE RAM ARRAY BOARDS. AFTER THE ARRAY bOARD 
IS COMPLETELY TESTED, THE PROGRAM WILE START TESTING THt MOTHER BOARD, 
DEPENDING ON THE MODE, A MESSAGE WILE BE PRINTED AS FOLLOWS; 
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TRANSPARENT MODE TEST NEXT , IF "O.K." NOT PkINTEd IN 5 SEC, THEN MB 

.. ~ . . .. .. IN SUB" - ---- - 


FAULT, THIS MESSAGE WILL NOT BE PRINTED 


SUBSEQUENT PASSES’ 


OR 

SEQUENTIAL MODE TEST NEXT 1 IF "O.K." NOT PRiNTED IN 5 Sc, THEN MB 
FAULT, THIS MESSAGE WILL NOT BE PRINTED IN SUBSEQUENT PASSES’ 


CONSOLE SEARCH RULES 


THE CONSOLE SEARCH RULES ARE; FIND THE CONSOLE WITH I HE LOWEST CHANNEL 
NUMBER CONNECTED THRU AN MDC CONTROLLER. IF THERE IS NO CONSOLE ON AN 
MDC, THEN SEARCH FOR A TERMINAL WITH THE HIGHEST CHANNEL NUMBER ASSIGNED 
TO AN ACLA ADAPTER ON AN MLC CONTROLLER, iF NO ASYNC ADAPTER IS FOUND, 
THEN GO TO THE FULL CONTROL PANEL. 

THERE ARE THREE CONSOwE CHANNEL OPTIONS DETERMINED BY THE VALUE OF LO¬ 
CATION "4VSTT Y", 

IF ZVSTTY EQUALS (0000), SEARCH FOR A CONSuLE. 

if zvvtty equals (ffff>, assume there is nu console. 

IF ZVSTTY EuUALS NEITHER (0000), NOR (FFFF), TH£N IT IS I HE CONSOLE CHAN¬ 
NEL NUMbER. NOTE; DEFAULT IS TO SEARCH FOR A CONSOLE. 

ALL CONSOLE I/O IS EVEN PARITY. IF CONSOLt IS ON MLC* IT MUST BE ASYNC 
AND THE BAUD RATE SET AT 1200 TO MAICH THE PROGRAM SUPPLIED RATE. IF IT 
IS NECtSSARY TO CHANGE THE PROGRAM BAUD RATE, THEN I HE NEW BAUD RATE 
CODE SHUULD BE PUT INTO LOCATION "ZVSBUD" i N HEX. THE TERMINAL BAUD RATE 
MUST BE SET TU MATCH THIS NEW BAUD KATE. THE CORRECT HEX VALUE MAY BE 
OBTAINEU from THE FOLLOWING table. 


*. 

# 

* 

* 

BAUD 

RATE TABLE 

* 

* 

* 

* 

ACLA l.D. 

(2118)(4110) 

(4108) 

* 

BAUD-RATE 



# 

50 

0 

1 

* 

75 

1 

4 

* 

110 

4 

3 

* 

134 

3 

4 

* 

150 

4 

5 

* 

400 

5 

... 

* 

300 

6 

6 

* 

600 

7 

( 

* 

900 

... 

8 

* 

1050 

8 


* 

1200 

9 

9 

* 

1600 

10 (A) 

10 (A) 

# 

2000 

11 (B) 


* 

2400 

12 (C) 

1(b) 

* 

3600 


12 (C) 

# 

4800 

13~(D) 

13 (D) 

# 

7200 

... 

14 (E) 

# 

9600 

14 (E) 

15 (F) 

# 

19200 

15 (F) 

... 


TU MAKE ANY OF THE ABOVE CHANGES, LOAD ANu HALy THE PROGRAM BEFORE EX¬ 
ECUTION. insert change then execute, memory locations uf "zv$tty« and 
"ZVSBUD" may be found in map at end of listing* 

CONSUL! LEVeL-6 T6V MANUAL "AW9V FUR DETAILS UN HOW TO LOAD THE TESTS. 

end-of-pass report 


EACH TIME ALL WCS-REEATED LUGlC HAS BEEN TESTED, AN END-OF-PASS 
MESSAGE WILL BE REPORTED ON THE CONSOLE (IF PRESENT). THE PASS 
THE PASS COUNT MAY ALSO BE OBSERVED IN B4 (In DECIMAL). 

EVERY 3 MINUTES, THE PROGRAM WILL DISPLAY ”3 MIN DONE" 

ON THE CONSOLE. THE PROGRAM WILL NOT HALT, bUT RUN UNTIL MANUALLY 
STOPPED. TEST ING -F-OR 3-MINUTES SHOULD BE SUFFICIENT. 

THE FOLLOWING IS AN EXAMPLE OF THE END-OF-PAsS REPORT 

O. K . 

CPFS4 PS 1 

O.K, 

CPFS4 PS 4 

O.K. 

CPFS4 PS 3 


O.K , 

CPFS4 PS 9 

3 MIN DONE < 

O.K. 

CPFS4 PS 10 

O.K, 

CPFS4 PS 11 


A^Y.HISyLT OTHER THAN THE ABOVE I NO I C^TES^A^ HARDWARE ^^AILUHE^ AND TFTE. 


DIAGNOSTIC PROCEDURE FROM THE "LEVEL 6 SYSTEM CHECKOUT 
ORDER NO. "AW94", SHOULD BE FOLLOWED. 


T6V MANUAL'S 
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ERROR REPORTING. 

~DETECTEo”ERROR5 ARE REPORTED AS FOLLOWS; 

ERR CODE AT AAAA 
WHERE I 

CODE = ERROR CODE WITH UNIQUE FIRST POOR CHARACTERS. 

AAAA = LOCATION IN TEST IN PROGRAM FUR EXPLANATORY COMMENT. 

THE ABOVE ERROR MESSAGE IS MINIMAL. IT WILL BE SUPPLEMENTED* 
DEPENDING ON THE ERROR* WITH ONE UR MURE OF THE FOLLOWING; 

- REPLACE MB 

- REPLACE DB I 

- REPLACE DB 2 

- STATUS 

- DATA IS* SHOULD BE 

- LOCATION IN ERROR 
* 20NE IN ERROR 

- ERROR TYPE 

- SPECIFIC ENGLISH SENTENCES 


THERE ARE FAULTS WHICH *ILL CAUSE FIRMWARE FREEZE* THUS* 
preventing the displaying of AN ERROR MESSAGE. ANTICIPATING 
THESE ERRORS* THE PROGRAM ISSUES WARNING MESSAGES AS SHOWN 
BEFORE. 

NO CONSOLE 


THIS PROGRAM CAN BE OPERATED WITHOUT A CONSOLE. ERROR DATA IS LIMITED 
TO "CODE" IN REGISTERS "Rl" AND "K2" U.E. "ul" AND »D2">* AND "AAAA" 
IN REGISTER "02”. COMMENT AT LOCATION "AAAA" WILL SPECIFY WHICH 
REGISTERS CONTAIN ADDITIONAL INFORMATION. 

ALL ENTRitS MUST Bt MADE VIA REGISTER "Rl"("ul")• 

FURTHtR EXPLAINED IN MANUAL "Aw94" ENI I I LED "LEVEL 
AND T6V MANUAL". 


THE PROCESS is 
6 SYSTEM CHECKOUT 
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00030b 





/ 




000306 






CTRL 

LINK 2 V $ T H 

<ZV$THZ*ZVSTD) 

000307 






XLOC 

ZViAF 


000306 






XLQC 

ZV$LR 

MEMORY LOW 

M 000309 






XLOC 

Z V $ T1 Y 

= 0 IF NO CONSuLE 

1 000310 






XLOC 

z v$Er 


0003 u 





* 




000312 






XLOC 

ZHRTU 

RTC INJ UAL VAlUE - LOC HEX 0014 

000313 






XLOC 

ZHRTCC 

RTC CURRENT VAlUE - LOC HEX 0015 

000314 






XLOC 

ZHRTCL 

RTC INTERRUPT uEVEL - LOC HEX 0016 

00031b 






XLOC 

ZHTHb 

trap hanoler pointer no. s> 

000316 






XLOC 

ZHTHlb 

TRAP handler Pointer no. 15 

000317 






XLOC 

ZHTH17 

TRAP HANOLER POINTER NO. 17 

000316 





* 




000319 





* 




000320 


0000 



ZERO 

EuO 

% 


000321 

0100 





ORG 

ZERO+X 1 100• 


000322 





* 




000323 

0100 

OF 00 

0000 


START 

NOP 

<ZERO 

SAF«LAF CHECK 

000324 

0102 

OF 00 

0000 



NOP 

<ZERO 


00032b 

0104 

6740 

1 3 8 A 



CL 

PASCNl+SAF-i 

CLEAR PASS COUNT 

000326 

0106 

OF 64 




b 

> STAR 1 1 


00032/ 





4 




000326 

0107 

0 F 7 F 



DONE 

NOP 

>S~1 

3 MINUTES DONE 

000329 

0106 

OF 60 

0135 



B 

<NXT PAS 


000330 





* 




000331 





* 




00033c 





* 




000333 





ST ART 1 

CALL 

ZViRO*MSGl 

INITIALIZE SYSTEM And PRINT PROGRAM 


010A 

FBCO 

0003 







010C 

0360 

0000 

X 






oiot 

OF 80 








010F 

1296 







000334 





* 

- 


NAME AND SYSTEM RESOURCES. 

00033b 





# 




000336 





* ESTABLISH 

CHANNtL NUMBER * FUNCTION CODE TABLE 

000337 





* 




000336 

0110 

9B80 

14 A 1 


ESTBL 

LAB 

SB1»<WCSTbL 

ADRS OF TABLE 

000339 

0112 

A870 

FFF9 



LOR 

SR2*=~7 

7 WORDS 

000340 

0114 

9800 

1491 



LOR 

KX *<CPCHAN 

** ASSUME 0 FoR NOW ** 

000341 

0116 

1006 




SOL 

SRI *6 

SHIFT CP CHAN r»0 TU BITS 8 AND 9 

00034c 

0117 

6B51 




LbC 

= $K 1 * = Z •OOCO * 

complemlni bits 8 and 9 


0118 

OOCO 







000343 

0119 

9 AF 1 



ESTBL1 

SRM 

iRl**-$Bi*=2*0QC0» 

STORE UNDER MASK 


011A 

OOCO 







000344 

Olid 

2 7F t 




BIIMC 

SR2 *>ESTBL1 


00034b 





* 




000346 





* INITIALIZE 

PASS COUNT 


000347 





# 




000346 

one. 

CC60 

1236 



LOB 

SB4 * <NULL 

** B4 RESERVES FOR PASS COUNT DISPLAY ** 

000349 





* 




GG03b0 





* initialize 

REAL TIME CLOCK 


000351 





* 




00035c 

out 

9670 

FFFF 



LOR 

SRI * = Z'FFFF• 

MAX# VALUE 

000353 

0120 

9F00 

0000 

X 


STR 

$R 1 * <ZHRTCC 

RTC CURRENT 

^x 000354 

0122 

9F00 

0000 

X 


SIR 

SR1*<ZHRTCI 

RTC INI 1IAL 

£ 00035b 

0124 

1C3F 




LOV 

Ski*=63 

LOWEST PRIORITY. WON’T INTERRUPT. 

1 000356 

012b 

9F00 

0000 

X 


STR 

SR 1 * <ZHRTCL 

RTC LEVEL 

\ 000357 

0127 

0004 




KTCN 


TURN ON CLOCK 

000356 





* 




000359 






CALL 

ZVSTCtMSGlO 

PRINT MESSAGE 


0128 

FBCO 

0003 







012A 

0380 

0000 

X 






012C 

OF 8 0 








0120 

1208 







000360 






CALL 

ZVST C * MSG1E 



012t 

FBCO 

0003 







0130 

0360 

0000 

X 






0132 

0F60 








0133 

12F t 







000361 

0134 

0004 




RTCN 



000362 





* 




000363 





* 




000364 





***** 




00036b 





* 




000366 





* COMES HERE 

FOR START OF NEXT 

PASS 

000367 





* 




000366 





***** 




000369 





* 




000370 





* 




000371 





* 




000372 





* 




000373 





* 




000374 





* 




00037b 

0135 

8070 

6000 


NXTRAS 

10 

= Z'8000 f *<OUTCON 

INITIALIZE WCS 


0137 

0000 

14A1 






000376 

0139 

0703 




BIOT 

> INI 1 1 


000377 

013A 

£.380 

114b 



LNJ 

SB6 *<NAKERR 

** ERROR "NAK" ** 

000376 





* 



OUTPUT CONTROL SHOULD NEVER tit NAK•D. 

000379 





* 



KfcPLAtt WCS MOTHtK BOARD. 

000380 





* 




000381 

013e. 

8054 



INI T l 

10 

*SR4. < INSTAT 

INPUT SIATUS 


0130 

0000 

14A6 






000382 

013F 

0704 




BIOT 

> INI 12 


000383 

0140 

£380 

114B 



LNJ 

SB6 t <NAKERR 

** ERRUR "STAIU5" ** 

000384 

014c 

OF F 3 




B 

>NXTPAS 

input siaius should never be nak»d. 

00038b 





* 



REPLACt WCS MOTHER BOARD. 

000386 





* 




000387 

0143 

C970 

0600 


INIT2 

CMR 

SR4,=2*0800* 

dlT 4 StT FOR NORMAL MODE? 

000386 

014b 

0980 




BNE 

> IN I 13 


000389 

0146 

CFOO 

1480 



STR 

SR4 * <MODBIT 

YES - SAVE IT 

000390 

0146 

89C0 

1346 



CMZ 

PASCNl ♦ SAF-. 1 

1ST PASS? 

000391 

014A 

09A2 




BNE 

>GET 10 

NO 

000392 






CALL 

ZVSTC * MSG1B 

PRINT "NORMAL MODE" 


014b 

FBCO 

0003 







0140 

0380 

0000 

X 






014F 

OF 60 








0150 

12 AC 







m 000393 

Olbl 

0F9B 




B 

>GET 10 


■ 000394 





* 




V«r- 00039b 

0152 

C970 

0040 


IN1T3 

CMR 

SR4*=Z , 0040» 

BIT 9 StT FOR iRANSpARLNT MODE? 

000396 

0154 

090C 




BE 

>INIT5 


000397 





IN1T4 

CALL 

ZVSER*IN1T4*MSG1A 

** ERROR "MODb” ** 
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0153 

FBCO 

0003 


0157 

D380 

0000 


0159 

0F60 



015A 

0155 



015b 

12A9 


000398 

000399 

Q15C 

0004 


0Q0400 

000401 

000402 

013D 

E360 

120C 

000403 

000^04 

015F 

0FD6 


000403 

0160 

CFOO 

148D 

000406 

0 lo 2 

89C0 

132C 

000407 

000406 

0164 

0986 



0165 

FBCO 

0003 


0167 

D380 

0000 


0169 

OF 80 



016 A 

12C2 


000409 

000410 

0166 

0004 


000411 

016C 

8054 



016D 

0000 

14A7 

000412 

G16F 

0704 

000413 
000414 
0004 16 

0170 

E360 

1146 


000416 

000417 

0172 

OF AC 


000418 


000419 

0173 

C970 

2610 

000420 

000421 

0175 

0929 


000422 

0176 

FBCO 

0003 


0176 

D380 

0000 


017A 

OF 80 



0176 

0176 



017C 

1416 



000423 

000424 

000423 

000426 



017D 

FBCO 

0003 


017F 

D3eO 

0000 


0181 

OF80 



0182 

1412 


000427 

0183 

CF40 

1303 

000426 

0165 

FBCO 

0003 


0187 

D380 

0000 


0189 

OFBQ 



018A 

1487 


000429 

0186 

FBCO 

0003 


0 1 8 D 

D380 

0000 


018F 

0F80 



0190 

1415 


000430 

0191 

FBCO 

0003 


0193 

D360 

0000 


0195 

OFBQ 



0196 

1492 


000431 

0197 

FBCO 

0003 


0199 

D380 

0000 


0I9B 

OF 60 



019C 

1319 


000432 

000433 

019D 

0004 


000434 

000435 

000436 

000437 




000436 

000439 




000440 

000441 

000442 

000443 

000444 

000445 

000446 

019E 

8757 


000447 

0 19F 

807Cf 

0000 


01A1 

0000 

14A2 

000448 

01 A3 

0703 


000449 

000450 

000451 

01A4 

E360 

1146 



000432 

000453 

01A6 

6054 



0 1A 7 

0000 

14A6 

000454 

01A9 

0704 


000455 

0 1AA 

E380 

1146 

000456 

000457 

0 1 AC 

OF87 


000458 

000459 

01 AD 

D800 

148D 

000460 

01AF 

C955 


000461 

000462 

0160 

0903 


000463 

000464 

000463 

000466 

01B1 

E3b0 

1163 

000467 

000466 

01B3 

6057 



0164 

0000 

14 A3 

000469 

0166 

0704 


000470 

000471 

000472 

0167 

E380 

1146 


X 


* ONLY BIJ MNORMAL HOPE) OR BIT 9 (TRANSPARENT mODfc) SHOULD Bt SET. 

* # 


ft 

LNJ 

6 

3>66,<PRSTS 
>NXT PAS 

PRINT S1 ATUS 

NO SENSE IN CONTINUING 

INIT5 

STR 

CM2 

6 NE 

CALL 

$R4,<M0DBIT 
PASCNT+$AF-1 
>GET ID 

2V$TC »MSG1C 

SAVE TRANSPARENT BIT 

1ST PASS? 

NO 

PRINT " JI^ANSPAkENT MODE" 

* 

RTCN 



GET ID 

10 

=$R4,<lNID 

INPUT ID 

* 

* 

ft 

6 1 or 

LNJ 

>GET1D1 
$ 66 ,<NAKERK 

** ERRUR "NAK w ** 

INPUT ID SHQULw NEVER BE NAK * D. 
REPLACE WCS MOTHER BOARD. 

ft 

6 

>LET 

GO TO NtX( TEST 

GETID1 

ft 

CMR 

BE 

$R4,=2*2610* 

>LET 

O.K. - GO TO NeXT TEST 

GETID2 

CALL 

ZV$tK *GET ID2*MS 68 

** ERROR "ID" ** 


CALL 

eVST,MSG 6 

ID SHOULD BE HeX 2610. ID READ IN R4, 
REPLACE WCS MOTHER BOARD. 

PRINT " IS” 

STR 

CALL 

$R4,TMP1 

ZVSTHZ,TMP1 

PRINT ID READ 

CALL 

4VST »MSG7 

PRINT M , SB” 

CALL 

ZVSTHZ♦ID 

PRINT "2610” 

CALL 

ZV$T,MSG4 

PRINT " * REPLACE MB *" 


RTCN 

* 

* 

* 

* 

********************** 

* LOADING ERROR TtST * 

* * 

********************** 

* 

* (STATUS BIT 10 - HEX 0020, FOR NATIVE PROM RLAu/toK1TE) 


* 


LET 

10 

= $R7 

= 2*0000* *<OUTADR 

ADRS OF NATIVE PROM 



* 

* 

* 

BIOT 

LNJ 

>LET1 

$66 *<NAKERR 

** ERROR "NAK” ** 

OUTPUT AORS SHOULD NEVER &E 
REPLACE WCS MOTHER BOARD. 

NAK 1 

' D. 

LET 1 

10 

=$R4*<INSTAT 

INPUT STATUS 



* 

* 

BIOT 

LNJ 

B 

>LET2 

$66,<NAKERK 
>LE7 3 

** ERRUR "NAK" ** 

input siatus should never be 

REPLACE WCS MOTHER BOARD. 

NAK * D # 

LET2 

LDR 

CMR 

BE 

*R5,<M0DBIT 
$R4,=$R5 
>LET3 

STATUS SB 



* 

* 

* 

* 

LNJ 

$66,<ST ERR 

** ERROR "STATUS” ** 

ONLY MODE BIT SHOULD BE StT* 
STATUS READ IN R4. 

REPLACE WCS MO(HER BOARD. 



LET3 

10 

=$R7,<0UTDAT 

OUTPUT DATA TO FORCE STATUS 

BIT 

10 


BIOT 

LNJ 

>LET4 

$66,<NAKERK 

** ERROR "NAK" ** 




* SHOULD NOT GET NAjC ERROR ON I/O DATA UNLESS A 0 TATU 5 BIT (ERROR FLOP) 

* WAS StT BY A PRtVIOUS I/O DATA COMMAND. REPLACE WC$ MOTHER BOARD. 


4 % 




TITLE 

CPFS4, 

•REV A* 




000473 




* 



000474 

01B9 

OF 90 



b 

>LET 6 

000475 




* 



000476 

0 1 BA 

8054 


LET4 

10 

= $R4,<1NSTAT 


0 1BB 

0000 

14A6 




000*77 

01BU 

0704 



BIOT 

> L E T 5 

000476 

0 I BE 

E380 

U4B 


LNJ 

SB6,<NAKERK 

000479 

01C0 

OP 89 



b 

>LET b 

000480 




* 



000*+81 




* 



000482 

QlCi 

D870 

0020 

LET 5 

LDR 

&R5,=2• 0020 • 

000483 

01C3 

D400 

148D 


UR 

SR5 , <MODB 11 

000484 

01C5 

C955 



CMR 

SR4,=SR5 

000485 

OlCb 

0903 



bE 

>LET b 

00048b 

01C7 

E380 

11B5 


LNJ 

Sb6, <57 ERR 

000487 




# 



000488 




* 



000489 




# 



00049U 




# 



000491 




* 



000492 

0 1C9 

8054 


LET 6 

1U 

= SK4,<INST AT 


01CA 

0000 

14A6 




000493 

01CC 

070* 



BIOT 

>LET7 

000494 

01 CD 

E380 

114b 


LNJ 

Sb6,<NAKERR 

000495 

01CF 

OP 87 



b 

>LE T b 

000496 




* 



000497 




* 



000498 

01 DO 

D800 

148D 

LET7 

LDR 

SR5,<MQDbIT 

000499 

0ID2 

C955 



CMR 

SR4,=$R5 

000500 

01D3 

0903 



BE 

>LE I 6 

000501 

01D4 

E380 

11B5 


LNJ 

SB6,<STERR 

000502 




* 



000503 




* 



000504 




# 



000505 




* 



000506 

OlDb 

805* 


LET 8 

10 

= $R4,<1NDAT 


01D7 

0000 

14A5 




000507 

01D9 

0705 



BIOT 

>LET9 

000506 

01 DA 

E380 

114B 


LNJ 

SB6 * <NAKERR 

000509 




* SHOULD NO 1 

1 GET NAK BEC 

000510 




* STATUS COMMAND ABOVL. 

000511 




* 



000512 

01 DC 

OF 8 1 

003C 


b 

NERT 

000513 




* 



000514 




* 



000515 

01 Dt 

1 CP 6 


LET9 

LDV 

SRI,=-10 

000516 

0 IDF 

8067 


LET 9A 

10 

= SR7,<OUTDAT 


01E0 

0000 

14A3 




000517 

01E2 

0783 



BIQP 

>LET10 

000516 

01E3 

E380 

1180 


LNJ 

SB6,<ACKEKR 

000519 




* GOT 

ACK. 

ACS SHOULD N, 

000520 




* command. 

REPLACE WCS i 

000521 




* 



000522 

01E5 

17 F A 


LET 10 

BINC 

SRI,>LET9A 

000523 




* 



000524 

01 Eb 

8054 



10 

= $R4,<IN1D 


01E7 

0000 

14A7 




000525 

01E9 

0704 



BIOT 

>LET11 

00062b 

01EA 

E380 

114B 


LNJ 

SB6,<NAKERR 

000527 

01 EC 

OP 9 1 



b 

>LET13 

000526 




* 



000529 




* 



000530 




* 



000531 

01 ED 

C970 

2610 

LET 11 

CMR 

SR4, = Z•2610 * 

00053^ 

01EF 

090E 



BE 

>LET13 

000533 




LET 12 

CALL 

ZVSEk,LET 12, i 


OlFO 

PBCO 

0003 





01F2 

D380 

0000 X 





PAGE 


INPUT ST A I US 


** ERRUR "NAk” ** 

input siaius should never be nak»d # 

REPLACE WCS MO I HER BOARD* 


R5=STATUS SB 


** ERROR "STAjUS" ** 

SHOULD BE HEX gQ 20, BIT ID PUR NATIVE 
PROM READ/WRl Tc , PLUS MODE BIT* 

STATUS READ IN R4. 

REPLACE WCS MOTHER BOARD* 


INPUT S1 A I US 


input H siaius should never be nak»d. 

REPLACE WCS MO 1 HER BOARD. 

STATUS SB 


** ERROR "STAiUS” ** 

bIT 10 SHOULD dE CLEARED PROM PREVIOUS 
INPUT SI A I US COMMAND. R4=STATUS READ. 
kEPLACE WCS MOTHER BOARD. 

INPUT DATA TQ FORCE STATUS BIT 10 AGAIN 


** ERROR "NAK" ** 

\USE ERROR SHOULO HAVE dEEN CLEARfc 
RtPLACE wCS MOTHER BOAkD. 

NO SENSE IN CONTINUING 
GO TO NEXl TEST. 

PORCE 10 NAKS 

OUTPUT DA IA TO FORCE NAK 


** ERROR "ACE” ** 


DO 10 TIMES 
INPUT ID 


** ERRUR "NAK" ** 

INPUT ID SHOULD NEVER BE NAK*D, EVEN 
IF ERROR PLOP IS SET. REPLACE WCS 
MOTHER BOARD. 


** ERROR "ID" ** 


ID READ IN R4. 


00053* 

000535 

000536 


Q1F4 
01F 5 
01P 6 


01F7 
01 Fy 
o i Fb 
01FC 


OFBO 

01FQ 

1418 


FBCO 0003 
D380 0000 
OFBO 
1319 


CALL <lV$T,MSG4 


000537 




# 



000536 

01FD 

8054 


LET 13 

IU 

= SR4 * <1NST AT 


OlPE 

0000 

14A6 




000539 

“0200 

0 704 



BUT 

>LET14 

000540 

0201 

E380 

U4B 


LNJ 

SB6,<NAKLRR 

000541 

0203 

0F89 



B 

>LET 15 

000542 




X 



000543 




X 



000544 

0204 

D870 

0020 

LET 14 

LDR 

SR5,=2•0020• 

000545 

0206 

D400 

148D 


OR 

SR5,<MUDB1I 

000546 

0206 

C955 



CMR 

SR4,=SR5 

000547 

0209 

0903 



BE 

>LET 15 

000546 

020A 

E380 

11B5 


LNJ 

SB6,<ST ERR 

000549 




* 



000550 




* 



000551 




* 



000552 




* 



000553 




* 



000554 

020C 

8054 


LET 15 

10 

= $R4,<1NST AT 


020D 

0000 

14A6 




000555 

02 OF 

0704 



BIOT 

>LET16 

000556 

0210 

E360 

114B 


LNJ 

SB6,<NAKERR 

000557 




* 



000558 




* 



000559 




* 



000560 

0212 

QF87 



B 

>NERT 

000561 




* 



000662 

0213 

D800 

148D 

LET 16 

LDR 

SR5,<M0DBIT 

000563 

0215 

0954 



CMR 

SR5,=$R4 

000564 

0216 

0903 



BE 

>NEKT 

000565 




# 



000566 

0217 

E380 

11B5 


LNJ 

SB6,<STERR 

000567 







000568 




# 



000569 




# 




REPLACE WCS MOTHER BOARD. 
PRINT " * REPLACE MB * H 


INPUT STATUS 


4* ERRUR ”NAk" ** 

INPUT STATUS SHOULD NEVEP BE NAK * D. 
REPLACE WCS MOTHER BOARD. 


R5=STATUS SB 


** ERROR "STATUS” ** 

SHOULD BE HEX 0020, BIT ID FOR NATIVE 
PROM READ/WRITl, PLUS MODt BIT. 
R4=STATUS READ. 

REPLACE WCS MOTHER BOARD. 

INPUT STATUS. 


** ERROR "NAK” ** 

input siatus should never be nak»d. 

REPLACE WCS MOTHER BOARD. 

GO TO NEXT TEST. 

STATUS SB 

IF O.K.« GO TO NEXT TEST 

** ERROR "STATUS" ** 

ONLY MODE BIT SHOULD BE $tT, 

STATUS READ IN R4. 

REPLACE WCS MOTHER BOARD* 



TITLE 


CPFS4. * REV A* 


PAGE 


a 


000670 

000671 

000672 

000673 

000674 

000676 




000676 

000677 

000578 

000679 

000680 

000581 

000582 

000683 

0219 

8757 


000584 

021A 

8070 

0400 


021C 

0000 

14A2 

000585 

000586 

02 IE 

0703 


000587 

000686 

021F 

E380 

1146 

000589 

000590 

000591 

0221 

8054 



0222 

0000 

14A6 

000592 

0224 

0704 


000693 

0225 

E380 

114b 

000594 

0227 

OF 87 


000595 

000596 




000597 

0228 

D800 

148D 

000598 

022A 

C955 

888882 

022B 

022C 

n°d 

1165 

000601 

000602 




000603 

000604 

000605 

022E 

8054 



022F 

0000 

14A5 

000606 

0231 

0704 


000607 

000606 

000609 

000610 

0232 

E380 

1 1 4b 

000611 

000ol2 

0234 

0F90 


000613 

0235 

8054 



0236 

0000 

14A6 

QG0ol4 

0236 

0704 


00Gol5 

0239 

E380 

114b 

OOO 0 I 6 

000617 

023b 

0F89 


000618 

000619 

023C 

D870 

0004 

000620 

023E 

D400 

148D 

000621 

0240 

C955 


000622 

0241 

0903 


000623 

000624 

000625 

000626 

0242 

E380 

1165 

000627 

000628 

000629 

000630 

0244 

6054 



0246 

0000 

14A6 

000631 

0247 

0704 


000632 

0248 

E380 

114b 

000633 

000634 

000635 

024A 

0 F 8 7 


000636 

024b 

D800 

148D 

000637 

0240 

‘ C955 


000638 

024E 

0903 


000639 

024F 

E380 

1165 

000640 

000641 

000642 

000643 

000644 

0251 

6057 



0252 

0000 

14A3 

000645 

02-5-4 

UW5 


00064o 

000647 

00064b 

0255 

E380 

U4b 

000649 

000650 

025 7 

OF 81 

003C 

000651 

000652 





* 

# 

* 

* 

****************************** 

* NON-EXISTANT RESOURCE TEST * 

* * 
****************************** 
* 


* (STATUS BIT 13 - HEX 0004. FOR NON-EX IS I ANT RESOURCE READ/WRITE) 

* 


* 

* 

NERT 

CL 

= $R7 



10 

52*0400*.<OUTADR 

ADRS OF AREA NUT AVAILABLE FOR PROMS 

* 



OR RAMS. 


BIOT 

>NERT1 



LNJ 

$66.<NAKEKR 

** ERROR "NAK" ** 

* 



OUTPUT ADRS SHOULD NEVER BE NAK*P. 

* 



REPLACE WCS MOTHER BOARD. 

NERT 1 

10 

=$R4.<INSTAT 

INPUT STATUS 


BIOT 

>NEKT2 



LNJ 

$66.<NAKERR 

** ERROR "NAK" ** 


6 

>NERT3 

INPUT STATUS SHOULD NEVER BE NAK * D* 

* 

£ 



REPLACE WCS MOTHER BOARD. 

NERT2 

LDR 

$R5.<MODB1T 

STATUS SB 


CNR 

$R4.=$K5 



BE 

>NERT3 



LNJ 

$66.< STERR 

** ERRUR "STATUS" ** 

* 



ONLY MODE BIT SHOULD BE StT. 

* 



STATUS READ IN R4. 

* 



REPLACE WCS MOTHER BOARD. 

NERT3 

10 

s$R4 * <INDA1 

INPUT DATA TO FORCE STATU* BIT 13 


BIOT 

>NER T4 



LNJ 

$66.<NAKERR 

** ERROR "NAK" ** 

* SHOULD NOT GET NAK ON I/O 

DATA UNLESS A STATUS BIT (ERROR FLOP) WAS 

* btT 

bY A 

PREVIOUS I/O DATA 

COMMAND. RtPLACE wCS MOTHER BOARD. 


B 

>NER T 6 


NERT4 

lu 

= $R4 * <1NST AT 

INPUT STATUS* 

• 

BIOT 

>NEKT5 



LNJ 

$66.<NAKEKR 

** tRRUR "NAK" ** 


b 

>NERT6 

INPUT STATUS SHOULD NEVER BE NAK• D, 

* 

* 



REPLACE WCS MOTHER BOARD. 


NERT5 

LDR 

$R5*=2*0004« 



OK 

$R5 » <MODB1T 

R5 = STATUS SB 


CNR 

$R4,=$R5 



BE 

>NER)6 



LNJ 

$66.<STERR 

** ERRUR "STATUS" ** 

* 



SHOULD BE HEX J004, B IT A3 FUR NON- 

* 



EXISTANI RESOURCE READ/WRITE* 

* 



PLUS MODE BIT. 

* 



STATUS READ IN R4. 

* 

£ 



REPLACE WCS MOTHER BOARD. 

NERT 6 

10 

5$R4,<INSTAT 

INPUT STATUS 


BIOT 

>NERT 7 



LNJ 

$B6»<NAKERK 

** ERRUR "NAK" ** 


B 

>NERTtt 

INPUT SIATUS ShOILD NEVER BE NAK• D. 

* 



REPLACE WCS MOTHER BOARD. 

NERT7 

LDR 

$R5.<M0DBIT 

STATUS SB 


CMR 

$R4.=$R5 



BE 

>NER T 8 



LNJ 

$66«<STERR 

** ERROR "STATUS" ** 

* 



BIT 13 SHOULD dE CLEARED FROM PREVIOUS 

* 



INPUT STATUS COMMAND. R4=STATUS READ. 

* 



REPLACE WCS MOTHER BOARD. 

NERT 8 

10 

= $R7 »<OUTDAT 

OUTPUT DATA TO FORCE STATUS BIT 13 AGAIN 


BIOT 

>NEKT 9 



LNJ 

$66.<NAKERR 

** ERRUR "NAK" ** 

* SHOULD NO! 

1 GET NAK BECAUSE 

ERROR SHOULD HAVE dEEN CLEARED BY INPUT 

* STATUS COMMAND ABOVE. REPLACE WCS MOTHER BOARD. 


B 

DNR 

NO SENSE IN CONTINUING 

* 

* 



GO TO NEXT TEST 


000653 

0259 

1CF6 


NERT9 

LDV 

$R1.5-10 

FORCE 10 NAKS 

000654 

025 A 

8054 


NEKT9A 

10 

=$N4.<INDAT 

INPUT DATA TO FORCE NAK. 


025o 

0000 

14A5 




000655 

025D 

0783 



b I OF 

>NERT 10 


000656 

025E 

E380 

1180 


LNJ 

$66»<ACKEKR 

** ERRUR "ACK" ** 

000657 




* GOT 

ACK. 

WCS SHOULD NAK BECAUSE ERROR FORCED BY ABOVE OUTPUT DATA 

000658 




* COMMAND. 

replace WCS 

MOTHER BOARD. 

000659 




* 




000660 

0260 

17 F A 


NERT 10 

BINC 

$Ri.>NEKT9A 

DO 10 TiMtS 

000661 




* 




000662 

000663 

000664 

000666 

000666 

000667 

000o6b 

000669 

000670 

000671 


0261 
0262 
0264 
026 6 
026 7 


0266 
026 A 

0266 
0260 
02 6 F 


8064 
0000 14A7 
0704 

E380 114b 
0F91 


C970 2610 
090E 

FBCO 0003 
0380 0000 
OF 80 


IU 

BIOT 

LNJ 

6 

* 

* 

* 

NERT11 CMR 
BE 

NERT12 CALL 


=$R4.<1NID 

>NERI11 
$66.<NAKtRK 
>NtRT13 


$R4 * = 2*2610* 

>NEKT13 

2VSEK.NEKT12.MSUB 


INPUT 10 


** ERROR "NAK" ** 

INPUT 10 SHOULo NEVER BE NAK«0, tVEN 
IF ERROR FLOP IS SET. 

REPLACE WCS NOfHER BOARD. 


** ERROR "ID" ** 


ID READ IN R4. 






f* 



TIILt CPFS4, *Rtv A* 


PAGt 


9 


* 

1 


C 


000672 

000676 

000674 


0006 76 
00U676 

000677 
0006 78 
000679 
ooooao 
000681 
00Uo82 
000683 

000684 

000686 

000686 

000687 

000o8b 

000o89 

OOOoVO 

000691 

00069c 

000o93 

0006 9*+ 
0G0o96 
000696 
000697 
000698 
000699 
000700 
000701 
0007 0c: 
000703 
000704 
000706 
000706 
000707 
000706 
000709 
000710 
000711 
00071c 
000713 
000714 
000716 
000716 
000717 
000716 
000719 
000720 
000721 


000758 

000759 

000760 

000761 


0270 

026B 


02 n 

1418 


0272 

FBCO 

0003 

0274 

D380 

0000 

0276 

0F80 


02 7 7 

1319 


0278 

8054 


0279 

0000 

14A6 

0276 

0704 


027C 

E380 

U4B 

02 7t 

OF 8 9 


0 2 7 F 

D870 

0004 

0261 

D400 

1 48D 

0283 

C955 


0284 

0903 


0286 

1380 

11B5 

028 7 

8054 


0288 

0000 

14A6 

028A 

0704 


028b 

1380 

114b 

028b» 

0F6 7 


028E 

0800 

148D 

0290 

C955 


0291 

0903 


0292 

E380 

UBS 


CALL 2VST*MSG4 


nek r x 3 10 
biot 

LNJ 

b 

* 

* 

NERT14 LDk 
OK 
CMR 
bt 
LNJ 
4 
* 

# 

* 

* 

NtKT15 IU 


blUT 

LNJ 


NEKT16 LOK 
CMk 
bt 

* 

LNJ 


************ 

* 

* DETERMINE 

* 

************ 


= $R4 * <INST AT 

>NtR714 
*b6 *<NAKtKk 
>NtKT15 


Sk5*=2'0004* 
SR6 » <MQDB 1 T 
*R4,=$K5 
>NtRTl5 
Sd6 . <ST ERR 


=*R4,<IN5TAT 

>NtRI 16 
*66.<;NAKtkk 


>ONR 

*R5.<M0DblT 

*R4*5$R6 

>ONR 

*66 »<S1tKR 


REPLACE WCS MO)HER BOARD. 
PRINT " * REPLACE MB *” 


INPUT SIAIUS 


** ERROR "NAK" ** 

INPUT SIATUS SiiQULD NEVER Bt NAK*D. 
REPLACE WCS MOTHER BOARD. 

RSsSTATUS Sb 


** ERROR "STAIUS" ** 

SHOULD bE HEX u004, BIT U EUR NON- 

existani resource Read/wrue* 

PLUS MOOt BIT. 

STATUS KtAD IN R4. 

KtPLACt WCS MOTHER BOARD. 

INPUT SI A I US 


** ERROR "NAK" ** 

input s 1 a ius should never bt nak*d. 
REPLACE WCS MO) her board. 

00 TO NtXI TEST. 

STATUS Sb 

II- O.K.f 00 TO NEXT TEST 

** ERROR "STATUS” ** 

ONLY MODE BIT SHOULD BE SET. 

STATUS KEAD IN R4. 

RtPLACt WCS MOTHER BOARD. 


*********************** 

* 

NO. RAMS (AND KtPORT) * 
* 

*********************** 


* (ALSO VERII-Y BOUNDARY ERRORS) 

* 


000722 

0294 

6757 


DNR 

CL 

5 SR 7 

000723 

0295 

8 700 

1494 


CL 

<DNRcRF 

000724 

0297 

8700 

1495 


CL 

<RAM1FL 

000726 

0299 

8 700 

1496 


CL 

<RAMcFL 

000726 




* 



000727 




* DETERMINE 

IF RAM NO*1 PRLSENT 

000 728 




* 



000729 

029t> 

8070 

0800 


10 

52*0800'* <OUTAJR 


0290 

0000 

14 A2 




000730 

029F 

0706 



BIOT 

>DNR 1 

000731 

02A0 

E380 

114B 


LNJ 

*66»<NAKtRR 

000732 

02A2 

OF 80 

02FB 


b 

<DNR10 

00073s 




* 



000734 




* 



000736 

0cA4 

8057 


DNR 1 

10 

5$R7 * <0U T DAT 


02A5 

0000 

14 A3 




000/36 

02 A 7 

0705 



biOT 

>DNR2 

000737 




* 



000736 

02A6 

E380 

114b 


LNJ 

SB6*<NAKERK 

000739 

02 AA 

OF 80 

02 FB 


b 

<DNR10 

000740 




* 



000741 

02 AC 

80 57 


DNR2 

10 

5$R7 *<OUTDAT 


02 AD 

0000 

14A3 




000742 - 

02 AF 

07 Ab 



blOF 

xDN R6 

000 743 




* 



000744 




* GOT 

ACK - 

COOKS LIKE RAM NO.l 

000746 




* 



000746 

0260 

8064 



10 

s*R4 * <INST AT 


02b 1 

0000 

14 A6 




000747 

02d3 

0705 



blOT 

>DNR3 

00074c 

GcB4 

t380 

1146 


LNJ 

*66 * <NAKERR 

000749 

02b6 

OF 8 1 

0044 


b 

DNR 1U 

000750 




* 



000751 




* 



000752 

0cb6 

82D4 


DNR3 

Lb 

= SR4 * =2 * 0004 * 


02B9 

0004 





000753 

OcbA 

0 587 



bbF 

>DNR4 

000754 

02bb 

D800 

14&D 


LDK 

*R5 . <MODbIT 

000755 




* 



000756 

0260 

E360 

1166 


LNJ 

*66 *<STERR 

000757 

G26F 

OF 8 1 

0036 


b 

DNR 10 


CLEAR ELAOS 


ADRS OF 1ST RAm 
** ERROR "NAK" ** 

OUTPUT ADORtSS SHOULD NEVER bt NAK•D. 
KtPlACE WCS MO I HER BOARD. 

OUTPUT DA IA - aILL SET STATUS) BIT 13* 

IF RAM 1 NOT PkESENt. 

** ERROR "NAK" ** 

REPLACE WCS MO I HER BOARD. 

SHOULD NAK IT- RAM 1 NOT PKEStNT 


000762 

02C1 

D800 

148D 

DNR4 

LDR 

*R5,<MQDblT 

000763 

02C3 

C956 



CMR 

*R4»5$R6 

000764 

G2C4 

0904 



bt 

>DNR6 

000766 

02C6 

E380 

1 IBS 


LNJ 

*66 * <STERR 

000766 

000767 

02 C/ 

0FB4 


* 

b 

>DNR10 

000768 




* 



000769 




* 



000770 




* 



000771 

02C8 

icoi 


DNR5 

LDV 

SR1.51 


MIGHT bE PRESENT 


** tRROR "NAK” ** 

input siaius Should never be nak*u. 

RtPLACt WCS MOTHER BOARD. 

FETCH SIAIUS biT 13 
Sb 0 

STATUS SB 

** ERROR "STATUS" ** 

olT 13 06 0 BECAUSE NO NAK ON 2ND 

OUTPUT DA IA COMMAND ABOVE. 

STATUS READ IN R4. 

REPLACE WCS MOTHER BOARD. 

STATUS SB 


** ERROR "STATUS" ** 

STATUS SB 0 BtcAUSE NO NAK ON 2ND 
OUTPUT DA IA COMMAND ABOVt. 

STATUS READ IN R4. 

REPLACE WCS MO(HER BOARD. 

SHOW RAM 1 RRtSENT 
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00077*' 02 C 9 

000773 02Co 
000774 02CU 
000775 

02 CF 

0201 

0203 

0204 

000776 0205 

000777 0206 

000776 
000779 
000780 

000781 0207 

0208 

000782 020A 

000783 020b 

000784 0200 

000785 
000786 

000787 0208. 

020F 

000786 0280 

000789 0281 

0 0 0 7 9 U 

000791 0283 

000792 0285 

000793 
000794 
000795 

000796 0286 

000797 0287 

000796 0289 

000799 028A 

000600 028 b 

000601 

000602 0280 
000603 028F 

000604 
000605 

000606 02 FO 

000607 02F2 

000606 

02F3 
02F5 
02 F 7 
02F8 

000809 02 F9 

000610 02FA 

000611 
000612 

000613 02 Fb 

000614 02FC 

000615 
000616 

000617 02F 8 

0300 

000616 0302 

000819 0303 

000620 
000621 


9FG0 1495 
69C0 11C3 
0981 0039 

FBCO 0003 

0380 0000 

0F60 

142B 

0004 

OFbl 


6054 

0000 14A6 
0704 

8360 11 4B 
0F98 


6204 

0004 

0506 

0870 FFFF 

8360 1185 
OF 96 


5C04 

0400 1460 

C955 

0906 

0870 FFFF 

8360 11B5 
0 F 8 C 


89C0 1198 
0995 

FbCO 0003 
0360 0000 
OF 80 
1434 
0004 
OF 80 


1C01 

9F00 1494 


8070 8000 
0000 14A1 
0705 

8380 1 146 


000622 

000623 

0305 

OF 60 

0135 

00062** 

000625 

000626 

000627 

000826 

0307 

6070 

ocoo 


0309 

0000 

14A2 

000629 

030b 

0705 


000830 

030C 

8360 

114b 

000831 

000632 

000633 

000634 

0308 

OF 60 

0135 

000635 

000636 

0310 

6054 


0311 

0000 

14A5 

000837 

0313 

0703 


000636 

000639 

0314 

8360 

114b 

000-640 

000641 

000842 

0316 

8054 



0317 

0000 

14A5 

000643 

0319 

07A6 


000644 

000645 

000846 

000647 

031A 

8054 



031b 

0000 

14 A 6 

000646 

0310 

0705 


000849 

0318 

8380 

114b 

000650 

000651 

000652 

000853 

0320 

OF 60 

0135 

000654 

000855 

0322 

8204 


000656 

0323 

0324 

0004 

0567 


000657 

0325 

0800 

1480 

000656 

000659 

0327 

8380 

1 lb5 

000660 

000661 

00086 c 

000663 

000664 

000665 

0329 

OF 60 

0135 

000666 

000667 

032d 

0800 

1480 

OOO 066 

0320 

C955 




STR 

CM2 

UNt 

CALL 

iRl,<RAMlFL 

PASCnT*$AF-1 

ONRli 

ZVSTC.MSG12 

1ST PASS? 

NO 

PRINT "RAM NO.1 PRESENT” 



RTCN 

b 

>ONR11 



* GOT 

NAK - 

LOOKS LIKE RAM NO.1 

MIGHT NOT BE PRESENT 


0NR6 

10 

= $R4♦<1NSTAT 



* 

* 

BIOT 

LNJ 

b 

>ONR 7 

3>B6 *<NAK8RR 
>ONR10 

ft* ERROR "NAK" ** 

INPUT S1 ATUS SmOULP NEVER BE 
REPLACE WCS MOTHER BOARD. 

NAK • P. 

DNR7 

Lb 

=$K4,=2»0004» 

FETCH SI A 1 US BiT 13. 


ft 

bbT 

lor 

>0NR6 

SR5 t = 2 1 FFFF • 

SHOULP bE SET. 

PON * T PRINT STATUS sb 


ft 

* 

ft 

LNJ 

b 

Sb6 *<51 ERR 
>ONR10 

ft* 8RRUR "STAIUS" ft* 

NAK NUT CAUSEP BY STATUS bIT 
STATUS REAP IN R4. 

REPLACE WCS MOTHER BOARP. 

13. 

0NR8 

ft 

LDV 

OR 

CMR 

b8 

LOR 

:i>R5 * = 4 
*R5*<M0DBIT 
*R4,=$R5 
>0NR9 

SR5 * = 2 * FFFF 1 

R5=STATUS SB 

PON * T PRINT STATUS SB 


* 

ft 

LNJ 

b 

Sb6 ♦ «ST 8RR 
>ONR10 

** ERRUR "STATUS" ft* 

STATUS READ IN R4. 

REPLACE WCS MOTHER BOARD. 


0MR9 

CM2 

BNE 

CALL 

PASCNT+$AF~1 
>ONR11 

ZV$TC*MSG13 

1ST PASS? 

NO 

PRINT "RAM NO.i NOT PRESENT" 


* 

RTCN 

b 

>ONK11 



DNRiO 

ft 

ft 

LOV 

STR 

SRl*sl 

$R1 ♦ <0NR8RF 

SHOW GOT ERROR PUKING RAM 1 
VERIFICATION. DON'T KNOW IF 
OR NOT. CHECK RAM NO.2. 

present 


10 

=2*8000*,<OUTCJN 

INITIALIZE WCS 


* 

ft 

ft 

biOT 

UMJ 

>DNR11 

SB6.<NAK8RR 

ft* ERROR "NAK" ** 

OUTPUT CONTROL SHOULD NEVER I 
REPLACE WCS MOTHER BOARD. 

Bt NAK * P 

* 

D 

<NXTPAS 

NO SENSE IN CONTINUING TEST. 


ft 

* DETERMINE 

IF RAM NO.2 PRESENT 



0NR11 

10 

=2*0000*,<OUTAJR 

APRS OF 2ND RAM 


ft 

ft 

ft 

blOT 

LNJ 

>PNR 1 2 

SB6f<NAK8RR 

ft* ERROR "NAK" ** 

OUTPUT APRS SHuULP NEVER bt 1 
REPLACE WCS MO 1 HER BOARD. 

nak*p. 


b 

<NX I PAS 

NO SENSt IN CONTINUING TEST. 


DNR12 

10 

= $R4 «<INpAT 

INPUT DATA - WILL set STAIUS 

BIT 13 


blOT 

>PNR13 

IF RAM I NOT PRESENT 


ft 

ft 

LNJ 

Sb6*<NAK8RR 

ft* ERROR "NAK" ** 

REPLACE WCS- MO I HER bOARO. 


DNRI3 

10 

=SR4,<INPAT 

SHOULD NAK IF RAM 2 NOT PRESENT 


blOF 

>PNR17 



* GOT 

ft 

ACK - 

LOOKS LIKE RAM NO.2 

MIGHT Bt PRESENT 



10 

= $R4 t<IN5T AT 



ft 

ft 

ft 

biOT 

LNJ 

>PNR14 

Sb6.<NAKtRR 

ft* ERROR "NAK" ** 

Input s 1 at us should never be 

REPLACE WCS MOTHER BOARD. 

NAK * P. 

ft 

b 

<NXTPAS 

NO SENSt IN CONTINUING TEST. 


DRR14 

Lb 

=$R4,=2*0004* 

FETCH S1 ATUS BiT 13. 


ft 

bbF 

LOR 

>PNR15 

SR5 * <MOPbIT 

SB 0. 

STATUS Sb 


* 

ft 

ft 

ft 

ft 

LNJ 

Sb6 * <STEKR 

ft* ERROR "STATUS" ft* 

BiT :3 bB 0 BElAuSE NO NAK ON 2ND 
INPUT DATA COMMAND ABOVE* 

STATUS REAP IN R4. 

REPLACE WCS MOTHER BOARD. 

ft 

b 

<NXTpAS 

NO StNSt IN CONTINUING TEST. 


0NRI5 

LOR 

CMR 

$R6t<M0PbIT 

$R4.=$R5 

STATUS SB 





TITLE 

CPFS4 < 

> *RtV A* 




PAG£ 11 


00U869 

032 6 

0905 



b£ 

>PNR16 



00087U 

0321- 

fc.360 

1165 


LNJ 

$66«<ST£RR 

** ERROR "STAiUS" ** 


000871 




* 



STATUS SB 0 BE^AUSt NO NAK ON 

2ND 

00067* 




* 



INPUT PATA COMMAND ABOVE. 


| \ 000673 




# 



STATUS KEAP IN R4. 


1 000674 




* 



REPLACE WCS MOTHER BOARP. 


^ 000675 




* 





000676 

0331 

0F80 

0135 


6 

<NXTPAS 

NO SENSE IN CONTINUING TEST. 


000677 




* 





000676 

0333 

1 CO 1 


DNR16 

LPV 

$R1.=1 

SHOW RAM NO.2 PRESENT 


000679 

0334 

9FOO 

1496 


STR 

$R1 *<KAM2FL 



000680 

0336 

89C0 

1158 


CM2 

PASCNT+ $AF -1 

1ST PASS? 


000681 

0336 

09 A F 



BNt 

>0NR21 

NO 


000682 





CALL 

ZV$TC,MSG14 

PRINT "RAM NO.2 PRESENT” 



0339 

FBCO 

0003 







033b 

0380 

0000 X 







0330 

OFfaO 








033t 

143F 







000663 

0331- 

0004 



RTCM 




000684 

0340 

0FA7 



B 

>DNK21 



000683 




* 





000686 




* GOT 

NAK - 

LOOKS L1K£ RAM NO 

.2 MluHT NOT BE PKEjENT 


000687 




* 





000686 

0341 

8054 


DNR17 

10 

= $R4 * <iNST AT 




0342 

uouo 

14A6 






000689 

0344 

0705 



BIOT 

>PNR18 



000890 

0345 

t380 

1146 


LNJ 

$B6.<NAKERR 

** ERROR "NAK" ** 


000691 




* 



INPUT Si A 1 US SnOULO NEVtR Bt 

NAK'P. 

00069*1 




* 



REPLACE wCS MO I HER BOARD. 


000693 




* 





000694 

0347 

0F80 

0135 


B 

<NXTPAS 

NO SENSE IN CONTINUING TEST. 


000693 




* 





000896 

0349 

8204 


DNR18 

Lb 

= $R4♦sZ * 0004 * 

FtTCH S1 A 1 US biT 13. 



034A 

0004 







000697 

034b 

0507 



BBT 

>PNR19 

SHOULD bE SET. 


000696 

034C 

0870 

FFFF 


LOR 

$R5*s2»FFFP• 

DON'T PRINT STATUS SB 


000699 




* 





00090U 

0346 

t380 

11B5 


LNJ 

$66 *<ST£RR 

** ERROR "STATUS” *# 


000901 




* 



NAK NOT CAUSED BY STATUS BIT 

13. 

00090*1 




* 



STATUS REAP IN R4. 


000903 




* 



REPLACE WCS MOTHER BOARD. 


000904 




* 





000903 

0350 

OF 80 

0135 


b 

<NXT PAS 

NO SENSt IN CONTINUING TEST. 


000906 




* 





000907 

0352 

5C04 


0NK19 

LPV 

$R5*=4 



000906 

0353 

0400 

148P 


OR 

SR5 * <MOPBIT 

R5^STATUS Sb 


000909 

0355 

C955 



CMK 

$K4 * = $K5 



000910 

0356 

0907 



b£ 

>PNR20 



000911 

0357 

08 70 

FFFF 


LOR 

$R5*=Z»FFFF' 

DON'T PKINT STmTUS SB 


000912 




* 





000913 

0359 

E380 

1165 


LNJ 

$b6 * <S7 £RR 

** ERROR "STATUS" ** 


000914 




* 



STATUS REAP IN R4. 


000913 




* 



RtPLACE WCS MOTHER BOARD. 


000916 




ik 





000917 

035b 

OF 80 

0135 


b 

<NXTRAS 

NO SENSt IN CONTINUING TEST. 


- s 000918 




ik 





4 000919 

0350 

89C0 

1131 

DNK20 

CM2 

PASCnT*$AF-1 

1ST PASB? 


I 000920 

0351- 

0988 



bNt 

>PNR21 

NO 


1 000921 





CALL 

2VSTCiMSG15 

PRINT "RAM NO.2 NOT PRESENT" 



0360 

FBCO 

0003 







0362 

0380 

0000 X 







0364 

OF 80 








0365 

1448 







000922 

0366 

0004 



RTCN 




000923 




ik 





000924 




ik 





000923 

0367 

8980 

1494 

DNR21 

CM2 

<DNRtRF 



000926 

0369 

0980 

0135 


BNE 

<NXTPA5 

NO sense in continuing test. 

CAN'T 

000927 




* 



DETERMINE if Ram NO.i present 

OR NOT. 

000926 




* 





000929 




* 





000930 

036o 

8980 

1495 


CM2 

<RAM1FL 



000931 

0360 

0900 

03CI 


Bt 

<UNR31 

NO RAM 1. CHtuK IF RAM 2 PRESENT. 

000932 

036F 

8980 

1496 


CM2 

<RAM2 FL 



000933 

0371 

0980 

03C5 


BNL 

<PNR32 

RAM 1 AND RAM 2 BOTH PREStNT. 


000934 




* 





000933 




* RAM 

NO. 1 1 

PRESENT * RAM NO.2 

NOT PRESENT. VERIFY STATUS BIT U 

(NON- 

000936 




* £XISTANT 1 

^tSOURCL) ANP NA< 

WHEN OVERSTEP RAM I'S BOUNDARY. 


000937 




* 





000936 

0373 

8070 

OBFF 


10 

=2 ’ ObF F'♦<OUT APR 

APRS OF LAST 64-biT WORD OF RAM I 


03 7 5 

0000 

14A2 






000939 

037-7 

07-05 



BIOT 

>PNR22 



000940 

03 76 

£380 

1146 


LNJ 

3>B6 i <NAK£RR 

** tRRUR "Nmk" ** 


000941 




* 



OUTPUT AUKS SHuULP NFVER BE NAK'P. 

000942 




ik 



REPLACE WCS MOTHER BOARD. 


000943 




ik 





000944 

037A 

OF 80 

040 A 


b 

<Pt T 

GO TO NEXI TES | 


000943 




ik 





000946 

037C 

8057 


DNR22 

10 

= $R7♦<OUT PAT 

I/O 1 



0370 

0000 

14A3 






000947 

037F 

0705 



BIOT 

>PNR23 



000946 

0360 

£380 

1146 


LNJ 

$66 * <NAK£RR 

** ERROR "NAK" ** REPLACE 

WCS MB 

000949 




* 





000950 

0362 

0F80 

040A 


b 

<PET 

GO TO NEXT TEST 


000951 




X 





000952 

0384 

8054 


DNR23 

10 

=SR4,<INPAT 

I/O 2 



0385 

0000 

1 4A5 






000953 

0367 

0705 



biOT 

>PNRZ4 



000954 

0388 

£380 

1146 


LNJ 

$b6 » <NAKERR 

** ERROR "NAK" ** REPLACt 

WCS MB 

000955 




ik 





000956 

038A 

0F80 

040A 


6 

<PE T 

GO TO NEXT TEST 


000957 




ik 





000958 

038C 

8057 


0NR24 

IU 

-$R7♦<OUTPAT 

I/O 3 



0380 

0000 

14A3 






000959 

038F 

0705 



biOT 

>PNR25 



000960 

0390 

t380 

1146 


LNJ 

$66 * <NAK£RR 

** ERROR "NAK" ** REPLACE 

WCS MB 

000961 




ik 





000962 

0392 

0F80 

040A 


b 

<P£T 

GO TO NEXT TESI 


g 000963 




ik 





■ 000964 

0394 

8054 


PNR25 

10 

=$R4,<1NPAT 

I/O 4 



0395 

0000 

14A5 






"W- 000963 

0397 

0705 



biOT 

>PNR26 



000966 

0396 

£380 

1146 


LNJ 

$B6 *<NAKLRR 

*# ERROR "NAK" ** REPLACE 

WCS MB 
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00096 7 
000966 

039A 

0F80 

040A 

000969 

000970 

039C 

8057 

- 


039P 

0000 

14 A3 

000971 

039F 

0705 

000972 

03A0 

E380 

114B 

000973 

000974 

03A2 

0F80 

040A 

000975 

000976 

03A4 

1CF6 


000977 

03A5 

6054 



03A6 

0000 

14A5 

000978 

03A8 

0785 


000979 

03A9 

E380 

1180 

00098U 

000981 

000982 

000983 

03 AB 

0F80 

040A 

000984 

000985 

03AP 

17F8 


000986 

000987 

03AE 

8054 



03 AF 

0000 

14A6 

000988 

03B1 

0705 


000989 

03B2 

E380 

1146 

000990 

000991 

000992 

03B4 

0F80 

040A 

000993 

000994 

03B6 

P870 

0004 

000993 

0368 

P400 

148P 

000996 

03BA 

P9 54 


000997 

0 3 bb 

0900 

040A 

000998 

000999 

03BP 

E380 

1165 

001000 

001001 

001002 

001003 

001004 

03bF 

OFSO 

040A 

001005 

001006 

001007 

001006 

03C1 

8980 

1496 

001009 

03C3 

0900 

0135 

cccccc 

cococo 

cccccc 

»-^C 

03C3 

8070 

OFFF 


03C7 

0000 

14A2 

OOlUlo 

03C9 

0705 


001017 

03CA 

E380 

1146 

001016 

001U19 

001020 

001021 

03CC 

OF 81 

003P 

001022 

001023 

03CL 

8054 



0 3 C F 

0000 

14A5 

001024 

03P1 

0705 


001025 

03Q2 

E380 

114B 

001026 

001027 

03P4 

OF 81 

0035 

001026 

001029 

03D6 

6057 



0 3P7 

0000 

14A3 

001030 

03P9 

0704 


001031 

03PA 

E360 

1146 

001032 

001033 

03PC 

OFAE 


001034 

001035 

03PD 

8054 



03PE 

0000 

14A5 

001036 

03E0 

0704 


001037 

03E1 

E380 

1146 

001038 

001039 

03E3 

OF A7 


001040 
001041 

03E4 

80-57- 



03E5 

0000 

14A3 

001042 

03E7 

0704 

001043 

03E6 

E360 

114b 

001044 

001043 

03EA 

OFAO 


001046 

001047 

0 3 Ed 

8054 



0 3 EC 

0000 

14A5 

001048 

03Et 

0704 


001049 
001U50 

03EF 

E380 

1146 

001051 

001052 

03F1 

0F99 


001053 

001054 

03F 2 

1CF6 


001055 

03F3 

8057 



03 F 4 

0000 

14A3 

001056 

03F6 

0784 


001057 

03 F 7 

E380 

1180 

001056 

001059 

001060 

001061 

03F9 

0F91 


001062 

001063 

03F A 

17F9 


001U64 

001065 

03F d 

8054 



03FC 

0000 

14A6 

001066 

03FE 

0704 


001067 

03FF 

E360 

1146 

001066 





# 

PNR26 


* 

PNK27 

PNR28 


6 

IQ 

BIOT 

LNJ 


LPV 

10 


BIQF 
LNJ 
GOT ACK. 


<PET 

= $R7 *<OUTPAT 

>DNK27 

$86*<NAKERR 

<PET 

$R1* =-10 
=$R4.<INPAT 

>PNR29 
$>66* <ACKERR 


GO TO NtXI TEST 

I/O 5 - 5HG0L0 FORCE STATUS BIT 13 


** REPLACE WCS MB 


** ERROR "NAK" 

GO TO NEXT TEST 
FORCE IP NAKS 

i/o 6-i^ - shooLP cause naks 
** error m ack m ** 


SHOUlP HAVt BEEN NAK * P BECAUSE BIT j,3 SHOULD Bt SET. 


REPLACE WCS MOTHER BOARD. 


* 

PNR29 

* 


DNR30 


B 

BINC 

10 

BIOT 

LNJ 


LPR 

OR 

CMR 

BE 


<PET 

$R1*>PNR28 

=$R4. <INST AT 

>PNR30 
$66«<NAKERR 


<PET 

$R5 * =2•0004• 
$R5 *<MQD6IT 
$R5*=$R4 
<PET 


GO TO NEXI TEST 
DO 10 TIMES 


** ERROR "NAK” ** REPLACE WCS MB 
INPUT S l AI US SriOULP NEVER Bt NAK * P. 

GO TO NEXI TES f 

RSsSTATOS 5b 

IF D.K.t GO TO NEXT JEST 


LNJ $B6*<STEKR 


_ _ ** ERROR "STAIUS" #* 

* NAK SHOULP HAVE BEEN CAUSED bY STATUS bl| 13 (NON-EX ISTANT RESOURCE)* 

* AND ONLY dIT 13. STATUS SHOULP BE HEX 0004. PLUS MODE BIT. 


STATUS REAP IN R4. 
B <PET 


REPLACE WCS MOTHER BOARD. 

GO TO NEXT TEST 
CHECK IF RAM 2 PRESENT. 


* RAM 1 NOT PRESENT. 

* 

PNR31 CM2 <RAM2FL 

BE <NXT PAS 

* 

* 

* RAM 2 PRESENT (RAM 1 N/A). VERIFY STATUS BIT 10 

* ERROR) AND NAK WHEN OVERSTEP RAM 2*5 BOUNDARY. 

* 

DNR32 10 =2*0FFF«*<OUTADR 


NO RAMS PtTECTc-D. 
CONTINUING TEST. 


NO sense IN 
(Native prom loading 

APRS OF LAST 64-b1T WORD OF RAM 2 


PNR33 


* 

DNR34 


PNR35 


# 

DNR36 


* 

PNR37 


* 

PNR38 

PNR39 


biOT 

LNJ 


B 

10 

BIOT 

LNJ 

B 

10 

BIOT 

LNJ 

b 

10 

biOT 

LNJ 

B 

10 

BIOT 

LNJ 

B 

10 

BIOT 

LNJ 

B 

LPV 

10 


BIQF 
LNJ 
GOT ACK. 


>PNR33 
S>b6 * <NAKERR 


PET 

=$R4,<1NPAT 

>PNR34 

$B6,<NAKERR 

PET 

=SR7,<0UTPAT 

>PNR3S 
$b6♦<NAKERR 

>Pt T 

= $R4 * <INPAT 

>PNR36 

*66*<NAKERR 

>PET 

—$K 7 . < OU T DA-T 

>PNR3 7 
$66«<NAKERR 

>PET 

= $R4 * <INPAT 
>PNR38 
$B6 * <NAKERR 
>PET 

$K1*=-IQ 
= $R7* <OUT PAT 

>PNR4Q 
$66 * <ACKERR 


** ERRUR ’’NAK" ** 

OUTPUT AUKS SHOULD NEVER BE NAK 1 P. 
REPLACE WCS MOTHER BOARD* 

GO TO NEXI TEST 

I/O I 


** REPLACE WCS MB 


** REPLACE WCS MB 


** REPLACE WCS MB 


** ERROR "NAK" 
gO TO NEXT TESI 
I/O 2 

** ERRUR "NAK" 

GO TO NEXI TESI 
I/O 3 

** ERROR "NAK*’ 
gO TO NEXI TEST 
I/O 4 

** ERROR "NAK" ** REPLACE WCS MB 

GO TO NEXI TESI 

I/O 5 - SHOULD FORCE STATUS BIT 10 


** REPLACt WCS Mb 


** ERROR ” NAK" 
GO TO NEXT TEST 


FORCE 10 NAKS 

i/o 6-is - should cause naks 


** ERRUR "ACK*' ** 


SHUULD HAVt BEEN NAK * P BECAUSE BIT J.0 SHOULD BE SET. 


REPLACE WCS MOTHER BOARD. 


PNR40 

* 


B 

BINC 

10 

biOT 

LNJ 


>PET 

*R1*>PNR39 

• $R4.<INST AT 

>pNR4l 

*b6,<NAKERR 


GO TO NEXT TEST 
DO 10 TIMES 


** ERROR "NAK” ** REPLACt WCS MB 

input si a ius should never be nak»p. 


f 

V 





\ 













TITLE 

CPF 541 

. • REV A* 
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OQ1069 




* 




001070 

04 01 

OF 89 



b 

>PET 

GO TO NEXT TESI 

001071 




# 




00107* 

0402 

0870 

0020 

0NK41 

LOR 

$R5»=2 * 0020 * 


g x 001073 

0404 

0400 

1480 


OR 

SR5 9 <MODBIT 

STATUS SB 

V 001074 

0406 

0954 



CMR 

$R5♦s$K4 


V^' 001075 

0407 

0903 



BE 

>PET 

IF O.K.» GO TO NEXT TEST 

001U76 




* 




001077 

0408 

E380 

11B5 


LNJ 

SB6 9 <5TERR 

** ERROR "STATUS" ** 

001076 




* NAK 

SHOULD HAVE BEEN CAUSED bY STATUS bll 10 (NATIVE PROM LUADING 

001079 




* ERROR)* AND ONLY tilT 10. STATUS SHOULO b£ HEX 0020* PLUS MODE BIT. 

001080 




* STATUS R£AO IS IN R4. R£PLAC£ WCS MOTHER BOAKD. 

001081 




* 




00108c 




* 




001083 




* 




001084 




* 




00108b 




********************* 


001086 




* 


* 


001087 




* PARITY £RkuR TEST * 


001086 




* 


* 


001089 






001090 




* 




001091 




* NUT £ 

; PARITY CHECKED UN EVERYTHING THAT GOES OVER On DATA BUB TO WCS 

00109c 




ik 

EXCEPT WHtN OUTPUT CONTROL WORD. 

001O93 




* 




001094 

040A 

8980 

1495 

P£T 

CM* 

<RAM1FL 


00109b 

0400 

0904 



BE 

>PET 1 


001096 

0400 

9870 

0800 


LDR 

$>K1 * s* 1 0800 * 

USE RAM 1 APRS IF PRESENT 

001097 

04 OF 

OF 83 



b 

>PET * 


001096 

0410 

9870 

OCOO 

P£T 1 

LDR 

3>R 1 » s* » OCOO * 

USE RAM 2 AORS IF No RAM 1 

001099 

041* 

9F00 

1497 

PET 2 

STK 

SRI 9<KAMADK 


oonoo 




* 




001101 




* V£R1FY CAN 

SET blT 14 (PARITY 

ERROR) 

00110* 




# 




001106 

0414 

8000 

1497 


IU 

<RAMADR 9 <OUT ADR 



04 1 6 

0000 

14A2 





001104 

0418 

0703 



BIOT 

>PET 3 


00110 b 

0419 

£.380 

114b 


LNJ 

SB 6 »<NAKERk 

** ERROR "NAK" ** REPLACE WCS MB 

001106 




* 



OUTPUT AUKS SHOULD NEVER BE KAMO. 

001107 




* 




001106 

041b 

8070 

2000 

PET 3 

10 

= 2 •2u00 *«<OUTC0N 

FORCE LtFT PARITY BIT BAD 


04 10 

0000 

14A1 





001109 

04 1F 

0703 



blOT 

>Pt T4 


001110 

042u 

£380 

114b 


LNJ 

SB 6 9 <NAKERR 

** ERROR "NAK" ** REPLACE WCS MB 

001111 




# 


OUTPUT CONTROL WORD 

SHOULD NEVER BE NAK•Q. 

00111 * 




* 




001113 




* VERIFY THAI 

: INPUT STATUS DOES 

CAUSE PARITY ERRuR WHfn IN PARITY 

OOlilH 




* FORClNu MODE« 1.E.9 VERIFY THAT PARITY CHECKED ON INPUT STATUS COMMAND 

00111 b 




* 




001116 

042* 

8054 


PET4 

10 

=SR4,<1NSTAT 



0423 

0000 

14A6 





001117 

0425 

0703 



blOT 

>PET4A 


00 1118 

04*6 

£380 

114b 


LNJ 

SB 6 * <NAKERR 

** ERRUR "NAK" ** RtPLACt WCS MB 

001119 




* 



INPUT STATUS SHOULD NEVER BE NAK•D. 

001120 




* 




. „ 001121 

04 *6 

0870 

1002 

PET4A 

LDR 

SR5 * =2* 1002* 


/' 00112 * 

042A 

0400 

1480 


OR 

Sk5 * <MODbIT 

R5 = STATUS SB 

f 001123 

04*0 

C955 



CMR 

SR4t=$K5 


1 001.124 

042D 

0903 



BE 

>PET4B 


00112 b 

042t 

£380 

libb 


LNJ 

SB 6 * <ST ERR 

** ERROR "STATUS" ** REPLACE WCS Mb 

001126 




* STATUS SB 

HEX 1002 PLUS MODE 

BIT(4 OR V). STATUS READ IB IN R4. 

001127 




# 




001126 

0430 

8070 

0000 

PET4B 

10 

=2*0000* «<OUTDAT 

SHOULD BET BIT 14 (PARITY ERROR) 


043* 

0000 

1 4 A3 





001129 




* 



PARITY NORMAL !»1 - PARITY SENT 1*0 

001130 




* 



SHOULDN’T CAUSE NAK CAUSE INPUT STATUS 

001131 




* 



SHOULD HAVE RESET PARITY. 

00113* 




* 




001133 

0434 

0703 



BIOT 

>PET 5 


001134 

043b 

£380 

114b 


LNJ 

SB6 9 <NAKERR 

*# ERRUR "NAK" ** REPLACE WCS MB 

00113b 




* 




001136 

0437 

8070 

0000 

PETS 

10 

5**0000* 9<UUTCJN 

RESET PARITY FuRCINg MODE 


0439 

0000 

14A1 





001137 

043b 

8054 



10 

=$R4,<1N5TAT 



0430 

0000 

14 A 6 





001138 

0430 

0703 



BIOT 

>PET 6 


001139 

0 4 3 F 

£380 

114b 


LNJ 

SB6 9 <NAKEKK 

** ERRUR "NAK" ** REPEACt WCS MB 

001140 




* 



INPUT STATUS SHOULD NEVER BE NAK’D. 

001141 




* 




00114* 

0441 

5C02 


PET 6 

LOV 

SR5 9 = 2 


001143 

044* 

D40Q 

1480 


OR 

SK5 9 <MODb1T 


002*44 

-0444 

C9-SF&- 



-CMR 

<tR4^=$R5 


00114b 

0445 

0903 



BE 

>PET / 


001146 

0446 

£380 

11B5 


LNJ 

$B 6 9 <S?ERR 

** ERRUR "STATUS" ** REPLACE WCS MB 

001147 




* STATUS SB 

HEX 0002 PLUS MODE 

BIT(4 OR 9). STATUS READ IN R4. 

001148 




* 




001149 




* 




001 1 bO 




* VERIFY INPUT STATUS CLEARS BIT 

14. 

0011 b 1 




* 




0011 b* 

0448 

8054 


PET7 

10 

=$R4,<INSTAT 



0449 

0000 

1 4 A 6 





001ib3 

044(3 

0703 



BIOT 

>PET 8 


001154 

044C 

£380 

114b 


LNJ 

3>B6 9 <NAKERR 

** ERROR "NAK" ** REPLACE WCS MB 

OOlibb 




* 



INPUT STATUS ShOULD NEVER Bt NAK*D. 

0011 b 6 




* 




001157 

044t 

L>800 

1480 

PET 8 

LDR 

SR5 9<M0DBlT 


001158 

0450 

C955 



CMR 

SR4 9 = SR5 


001159 

0451 

0903 



BE 

>PET 9 


001160 

045* 

£380 

UB5 


LNJ 

SB 6 9<STERR 

** ERROR "STATUS" #* REPLACE WCS MB 

001161 




* INPUT STATUS SHOULO HAVE CLEARED BIT 14. STATUS READ IN K4. 

00116* 




* 




001163 

0454 

8070 

1000 

PET9 

10 

-2*1000* 9<UUTCJN 

SET PARITY FORCING MODE AGAIN 

001164 

0456 

0458 

0000 

8070 

14A1 

0000 


10 

= 2 * 0000 * 9<0UTUAT 

SHOULD SET BIT 14 AGAIN 


045 A 

0000 

14A3 





001165 

045C 

0703 



BIOT 

>PET10 


001166 

0450 

£380 

114b 


LNJ 

Sti 6 9 <NAKERR 

** ERRUR "NAK" ** REPEACt WCS MB 

001167 




* 




g 001168 




* VERIFY NAKS 


( 001169 




* 




V001170 

045F 

2CF6 


PET 10 

LDV 

SR2»5«10 

FORCE ID NAKS 

001171 

0460 

8070 

0000 


10 

= *•0000* 9<0UTCJN 

reset parity forcing mode 


0462 

0000 

14A1 
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00li7k 

001173 

001174 

001175 

001176 

00U77 

001176 

001179 

00118U 

001181 

001182 

001183 

001184 


001 

001 

001 

001 

001 


85 
8o 
87 

86 
89 


001190 

001191 

001192 

001193 

001194 

001193 

001196 

001197 

001196 

001199 

001200 

001201 

001202 

001203 

001204 

001205 

001206 

001207 

001208 

001209 

001210 
001211 
001212 
001213 
001214 
001215 
001216 
001217 
001216 
001219 
001220 
001221 
001222 
001223 

001224 

001225 

001226 

001227 

001226 

001229 

001230 

001231 

001232 


0464 

0703 


0465 

E380 

H4B 

0467 

8070 

0000 

0469 

0000 

14A3 

046B 

0783 


046C 

E380 

1180 


046E 

27F9 


046F 

8054 


0470 

0000 

14A6 

0472 

0703 

0473 

E380 

U4B 

0475 

D87G 

0002 

047 7 

D400 

148D 

0479 

C955 


047A 

0903 


0476 

E380 

11B5 


047D 

8070 

3000 

047F 

0000 

14A1 

0481 

0703 

0482 

E380 

114B 

0484 

8056 


0485 

0000 

14A5 

0487 

0703 


0488 

E380 

114b 

048 A 

8070 

0000 

048C 

0000 

14A1 

048E 

8054 


0 4 8 F 

0000 

14A6 

0491 

0703 

0492 

E380 

114b 

0494 

5C02 


0495 

D400 

148D 

0497 

C955 

0498 

0903 


0499 

E380 

11B5 


049B 

8070 

2000 

049D 

0000 

14A1 

049 F 

8053 


04A0 

0000 

I4A7 

04A2 

8070 

0000 

04A4 

0000 

14A1 

04A6 

8054 


04 A 7 

0000 

14A6 

U4A9 

5C02 


04AA 

D400 

I48D 

(MAC 

C955 


04AD 

0903 


04AE 

E380 

1165 


001233 

001234 

04B0 

6970 

2610 

001235 

001236 

04b2 

090E 



0463 

F6C0 

0003 


0465 

D380 

0000 


04B7 

OF 60 



0466 

0463 



0469 

1416 


001237 

001236 

001239 

04BA 

F6C0 

0003 


046C 

0360 

0000 


046E 

OF 60 



046F 

1319 


001240 

001241 




001242 

001243 




001244 

001245 

001246 

001247 

001246 

001249 

04CO 

6070 

8000 


04C2 

0000 

14A1 

001250 

001251 

001252 

001253 

G4C4 

8757 


001254 

04C5 

5C02 


001255 

04C6 

D40Q 

148D 

001256 

Q4C6 

6800 

14A3 

OQ 1257 

04CA 

E800 

14A1 

001256 

04CC 

9B80 

14A6 

001259 

04CE 

4C03 


001260 

04CF 

CF GO 

1488 

001261 

04D1 

9870 

3000 

001262 

04D3 

8051 



04D4 

0056 


001263 





* 

PET 11 


BIOT 

LNJ 


>PET11 

$B6 *<NAKERR ** ERROR "NAK” ** REPLACE WCS MB 

OUTPUT CONTROL WORD SHOULD NEVER BE NAK'D. 


10 

BIOF 

LNJ 

* GOT ACK. 

* “**'■-* ■ 

PET 12 


= 2*0000* *<OiiTDAT 


SHOULD CAUSE NaK 


>PET 12 

$B6* <ACKERR ** ERROR "ACM ** REPLACE WC5 MB 

"MOULD HAVE BEEN NAK’D BECAUSE ERROR FLOp(BlT 14) SHOULD 
' T r x * DATA. 


HAVE BEEN SET WHEN OUTPUT 
BINC $R2 *>PET11 

$R4* < INSTAT 


* 

* 

PET 13 


10 

BIOT 

LNJ 


LDR 

OR 

CMR 

BE 

LNJ 


>PET13 
$66*<NAKERR 


$R5*=Z*OOQ2» 
$R5 *<MODBIT 
$R4*=$R5 
>PET14 
$B6i<STERR 


DO 10 TIMES 


** ERROR "NAK" ** REPLACE WCS MB 
INPUT STATUS SHOULD NEVER BE NAK’D* 


** ERROR '’STATUS” ** RtPLACE WCS MB 


* STATUS SB HEX 0002 PLUS MODE BIT(4 OR 9)* STATUS READ IN R4, 

* VERIFY INPUT DAI A FORCES PARITY ERROR IN PARITY FORCING MUDEt 

* l,t«f VERIFY PARITY CHECKED ON INPUT DA IA COMMAND. 

* 


PET 14 

IU 

52*3000* *<0UTCJN 

FORCE PARITY FORCING MODE 


* 

£ 

BIOT 

ENJ 

>PET14A 
$66 *<NAKERR 

OUTPUT CONTROL WORD 

** ERROR "NAK" ** REPLACE WCS 

SHOULD NEVER BE NAK * p. 

MB 

PET14A 

IQ 

= $R6 * < INDAT 




BIOT 

LNJ 

>PET15 
$66*<NAKERR 

** ERROR "NAK” ** REPLACE WCS 

MB 

PET 15 

10 

=2*0000*,<OUTCDN 

RESET PARITY FuRCINg MODE 



10 

=$R4,<INSTAT 



* 

* 

BIOT 

LNJ 

>PE T16 
$66 * <NAKERR 

** ERROR ”NAK” ** REPLACE WCS MB 

INPUT SIATUS SHOULD NEVER BE NAK'D* 

PET 16 LDV 

OR 

CMR 

BE 

* STATUS SB 

4L 

$R5 * = 2 
$R5 *<M0D6IT 
$R4,-$R5 
>PET16B 
$B6 *<STERR 

HEX 0002 PLUS MODE 

*# ERRUR ’’STATUS" ** REPLACE WCS MB 
BITU OR 9)* STATUS READ IN R4* 

* VERIFY PARITY CHECKED QN INPUT 

* 

I.D* COMMAND 


PET16B 

IQ 

= 2*2000* *<OUTCON 

SET PARITY FORCING MODE 



10 

= $R3 *<INID 

INPUT I♦D. SHOULD $£T BIT 14. 



10 

= 2*0000* *<OUTCJN 

RESET PARITY FuRCINg MODE 



10 

=$R4,<INSTAT 




LDV 

UR 

CMR 

BE 

LNJ 


$R5*=2 
$R5 *<MODBIT 
$R4*=$R5 
>PET16C 
$B6* <ST ERR 


** ERROR "STATUS” ** REPLACE WCS MB 


* STATUS SB HEX 0002 PLUS MODE BIT(4 OR 9). STATUS READ I*> IN R4. 


PET16C CMR 
PET16D CALL 


$R3*=2'26I0* 

>PET17 

2V$ER,PETI6D,MSG8 


** ERROR "ID" ** REPLACE WCS MB 


ID SB HEX 2610. ID READ IS IN R3. 
CALL 2VST*MSG4 PRINT 


* REPLACE MB *" 


********** 

* TEST PARITY CHECKER BY SENDING ALL POSSIBLE lo BIT PATTERNS 

* (65K? OOOO-FFFF) TO PARITY CHECKER 4 TIMES FORCING BOTH PARITY BITS 

* BAD, LEFT BAD* RIGHT BAD* AND NEITHER BAD* RESPECTIVELY. 

* THIS ALSO TLSTS DATA PATH TO PARITY CHECKER (BUS NOISE PROBLEMS*ETC.). 

* THIS TEST TAKES ABOUT 10 SECS. 

* 

PET 17 10 52*8000** <UUTCJN INITIALIZE WCS 


* DEFINE REGISTER USAGE 

* 


CE 

LDV 

UR 

LDR 

LDR 

LAB 

LDV 

STR 

LDR 

IQ 


= $R7 
$R5 * = 2 
$R5 *<MQDB1T 
$R3 * <QUT DAT 
$R6 * <OUT CON 
$Bl*<INST AT 
$R4 * s 3 
$R4 * < TMP2 
$R1* =2 1 3000 * 
= $Ri*=$R6 


R7sDATA pattern 

R5sSTATUS SB FoR lSj 3 TRIPS 


FLAG FUR PARITY FORCING COMBINATION 
recurrent parity control word 
force both parity bits bad fur ist 

TRIP. 
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TITLE CPF S4. *RtV A» 


001464 
OOI 466 
001466 
001 ctl 
001466 
001469 
001E70 

00U71 

001474 

001473 

001474 

001475 

001476 

001477 

001476 

001479 

001480 

001481 

001484 

001483 

001484 

001486 

001486 

001487 

001486 

001489 


001490 

001491 

001494 

001493 

001494 

001495 

001496 

001497 

001498 

00U99 


001300 


001301 
001304 


001303 

001304 

001305 

00130a 

001307 

001306 

001309 

001310 

001311 

001314 

001313 

001314 

001315 

001316 

001317 

001316 

001319 

0ai320 


G4U5 

4C10 


ft 

PET 18 

LDV 

SR4,=16 

U4D6 

CFOO 

1489 


STR 

SK4.<1 MP3 

04D8 

A670 

FOOO 

PET 19 

LDR 

SR4.=-4096 

04DA 

8000 

1497 


10 

<RAMADR,<UUTADR 

04DC 

0000 

14A4 




04DE 

8054 



IU 

= SR4.SB 1 

U4DF 

0001 


ft 



04E0 

8057 


* 

PET40 

10 

sSR7.=SR3 

04E1 

0053 





04E4 

0703 



biOT 

>PE T 40A 

04E3 

E360 

114B 


LNJ 

Sb 6 * <NAKEKR 

04E5 

8 764 


PtT40A 

CL 

= SR4 

U4E6 

8054 



IU 

=SR4.^SR6 

U4E7 

0056 





U4E8 

8054 



10 

=SR4,Sbl 

U4E9 

0001 





04EA 

C955 



CMR 

SR4.=$R5 

U4EB 

094E 


* 

BE 

>PET44 




* REPORT ERROR 

04EC 

E380 

11B5 


ENJ 

Sb 6 «<STERR 


04EL 
04F0 
04F4 
04F 3 
04F<+ 
04F5 
04 F 7 
04F 6 
04 F 9 
04 Fb 

04 FD 
04F E 
0500 
0501 

0503 

0505 

0507 

0506 

0509 

060b 

050D 

050L 

050F 

0511 

0513 

0515 

0516 

0517 


0519 
06 1 A 
051b 

051C 
0511 
0540 
0544 


0544 

0546 

0547 


FBCO 
0380 
OF 80 
1453 
C852 
CA 70 
8654 
6753 
8000 
0000 

6053 
0000 
4 7 FD 
bFOO 

FBCO 

0380 

0F80 

1487 

FBCO 

0380 

0F80 

1415 

FFOO 

FBCO 

0360 

0F80 

1467 

B800 


8A07 

6051 

0056 


0003 

0000 


1000 


1497 
14A4 


14A5 

1487 


0003 

0000 


0003 

0000 


1487 

0003 

0000 


14A3 


4761 FFC3 
6860 1489 
8960 1489 
0981 FFB5 


6880 I486 
6051 

0000 14A7 


0649 9800 -14-88 


0Q1341 

001344 

054b 

1814 


001323 

054C 

1054 


001344 

054D 

8051 



054E 

0056 


001346 

001326 

001327 

001328 

054F 

1981 

FFA5 

001329 

001330 

0531 

8054 



0534 

0000 

14A6 

001331 

0534 

5C04 


001334 

0535 

D400 

148D 

001333 

0537 

C965 


001334 

0536 

0903 


001335 

001336 

0539 

E 380 

1 1B5 

001337 

001338 

053b 

D800 

148D 

001339 

001340 

053D 

OF 81 

FF97 


001341 

001342 

001343 

001344 

001345 

001346 

001347 

001346 

001349 


STATUS SB = R 5 . STATUS READ 
CALL ZVS T C.MSG19 


LDR SR4,sSR4 
ADD $R4.=4096 
CPL = SK4 
CL =$R3 

1U <RAMADH.<QUT ADR 


* 

PET41 


1U = SR3 * <IIMDAT 

BINC $R4 *>PET41 
STK SR3 * < T MP1 
CALL z.V$ ThZ * IMP 1 


CALL 2 VST.MSG7 


STR 

CALL 


SR 7 * < THP 1 
z vstnz * t mp i 


LDR SK3*<OUTDAT 


* CONTINUE 


PET42 


INC 

10 


BiNC 

DEC 

CM2 

BNE 


DEC 

10 


= $K7 
s$Kl.: 


$R 6 


$R2»PET 40 

< TMP3 

< T MP3 
PET 19 

PATTERNS(DO 
<TMP4 

=$K1.<INID 


WRITE 4K PATTERNS 16 TIMES FOR 
tACH PARI IY COMBINATION. 

4K 16-blT WORDS s lK 64-BlT WORDS 
OUTPUT STARTING RAM ADRS 

INPUT SIAI US Tu RESET PARITY FLOP IN 

CASE WERE IN PARITY FORCING MODE. 

OUTPUT DATA 

** ERROR "NAK" ** REPLACE WCS MB 

RESET PARITY FuRCINg MODE 
INPUT SI A I US 


** ERROR "STATUS" 
IN R4. 

PRINT "DATA = " 


** REPLACE WCS Mb 


GET COUNT 

OUTPUT STARTINu RAM ADRS 

PRINT DATA REAty 

PRINT "* SB" 

PRINT DATA SB 


16 


RESTORE R3 


BUMP PA(TERN 

RESTORE PARITY FORCING MODE IF 

APPLICABLE. 

OUTPUT NEAT PATTERN 


RE-INIT1ALIZE RAM ApRS FOR NEXT 4K 
TIMES FOR EACH PARITY FORCING COMBO). 


NEED DUMMY I/O COMMAND OR ELSE IF 
IS SUPPOSED TO RESET PARITY FuRCINg MODE. IT WON* 


* NEXT i/u COMMAND IS SUPPOSED TO RESET PARITY FuRCINg MODE. IT WON’T. 

* INPUTTING ID HERE CAUSES PARITY ERROR IF WERE IN PARITY FORCING MODE. 

LDR $RI.<TMP4 

BL2 SRI * > M E T ALL OONt HERE. GO TO NEXT TtST. 


SCR 

10 

BNE2 


SRI.4 
= $kl» = 3>R6 

SRI .PET 18 


SHIFT PARITY FuRCINg BITS FROM 14,15 
TO 4*3 AND OUTPUT. 

OUTPUT 65K PATTERNS FOR NtXT PARITY 
FORCING COMBO. 


* 

* 

* VERIFY OUTPUT CONTROL WORD RESET PARITY FORCINu MODE 

* 

10 5$R4.<INSTAT SHOULD SEE PARITY ERROR FROM INPUT ID 


LDV 

UK 

CMR 

BE 

LNU 


SR5.-4 
SR5 . <MODB1T 
SR4«~$K5 
>PET43 
SB 6 .<ST ERR 


14(PARITY ERROR) AND MODE BIT(4 OR 9) 
EDR SR5 * <MODbIT 

B PET 18 


* BITS 

PET23 

* 

* 

* 

* 

# 

# 

*##****#***#**###*** 
# * 

* multi-error test * 

# * 


** 


ERRUR "STATUS" 
SB SET. 


*# REPLACE WCS MB 
STATUS READ IN R4. 


STATUS SHUULD ONLY SHOW MODE BIT SET 
FOR LAS I TRIP. 

OUTPUT 65K PATTERNS WITH NO PARITY 
FORCING. 



TITLE CPFS4* *REV A* 
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001350 

001351 

001352 

001353 

001354 

001355 

001356 

001357 

001356 

001359 

053F 

’ 8070 

8000 


0541 

0000 

14A1 

001360 

0543 

0703 


001361 

0544 

E360 

114B 

001362 

001363 

001364 

0546 

2CFE 


001365 

001366 

054 7 

8070 

0000 


0549 

0000 

14A2 

001367 

054b 

0703 


001366 

034C 

E380 

114B 

001369 

001370 

001371 

054E 

8070 

1000 


0530 

0000 

14A1 

001372 

0552 

0703 


001373 

0553 

E380 

114b 

001374 

001375 

001376 

0555 

8070 

0000 


0537 

0000 

14A3 

001377 

0559 

0703 


00137b 

055A 

E380 

114b 

001379 

001380 

055C 

8070 

0000 


055t 

0000 

I4A1 

001381 

001382 

001383 

0560 

0 703 


001384 

0561 

E380 

114B 

001385 

001386 

001387 

0563 

8070 

0400 


0565 

0000 

14A2 

00138b 

0567 

0703 


001389 

0568 

E380 

U4b 

001390 

001391 

001392 

U56A 

8070 

0000 


056C 

0000 

14 A3 

001393 

056E 

0783 

001394 

056F 

E360 

1180 

001395 

001396 

001397 

001396 

0571 

2795 


001399 

001400 

001401 

001402 

0572 

8070 

6000 


0574 

0000 

14 A 1 

001403 

0576 

0 703 


001404 

0577 

1380 

114b 

001405 

001406 

001407 

0579 

8054 


057A 

0000 

14A6 

00140b 

05 7C 

0703 


001409 

05 70 

1380 

1146 

001410 

001411 

001412 

057F 

D800 

146D 

001413 

0581 

C955 


001414 

0562 

0921 


001413 

0563 

E380 

1165 

001416 
001417 
00i4 16 
001419 

0585 

0F9E 


001420 
001421 
-00-142 * 
001423 

058b 

6054 



058/ 

0000 

14A6 

001424 

0589 

0703 

001425 

058A 

E380 

1146 

001426 

001427 

00142b 

056C 

D870 

0026 

001429 

G56E 

D400 

1 48D 

001430 

0590 

D954 


001431 

0591 

0903 


001432 

0592 

E380 

11B5 

OOU33 

001434 

001433 

0594 

8054 



0595 

0000 

14A6 

001436 

059 7 

0703 


001437 

0596 

L360 

1146 

00143b 

001439 

001440 

039A 

D800 

148D 

001441 

059C 

D954 


001442 

059D 

0901 

FFA9 

001443 

059F 

E380 

1165 

001444 

001443 

001446 

05A1 

0F8 1 

FFA5 

001447 

00144b 

001449 

001450 

001451 





************^*#*#*** 

* 

* VfcRIFY HISTORIES PRESERVED 


* 1ST VERIFY CAN FORCE BIT 13(NQN-EXI STANl RESOURCE) WHEN BITS 10 

* (NATIVE PROM LOADING ERROR) ANO 14<PARIIY ERROR) ARe SkT• ALSO VERIFY 

* THAT BITS 10 ANO 14 NOT RESET WHEN OUTPUT DATA TO NoN-EXiSTANI 

* RESOURCE# 


* RESOUR 
MET I 


=Z*8000**<OUTCJN 


INITIALIZE WCS 


* 

MET 1 LD 

* 

MET 1A 10 


BIOT >MET1 

LNJ $B6* <NAKERR ** ERROR "NAK" ** REPLACt WCS MB 

OUTPUT CONTROL WORD SHOULD NEVER BE NAK»D# 


«Z 1 0000 ** cOUTADR 


BIOT >METZ 
LNJ $B6 *<NAKERR 


sZ'IOOQ' *<OUTCJN 


FLAG TO DETERMINE If SHOULD INPUT 
STATUS UR INITIALIZE WCS. 

ADRS* OF NATIVE PROM 

** LRRUR "NAK" ** REPLACE WCS MB 
OUTPUT ADKS SHuULD NEVER *E NAK' D. 

FORCE RIGHT PARITY BIT BAD 


>MET3 

S66*<NAKtRR 


error "NAK" 


REPLACE WCS MB 


OUTPUT CONTROL WORD SHOULD NEVER BE NAK»p # 

sZ’OOOO*,<OUTDAT SHOULD SEI STATUS BITS 10 AND 14 


BIOT >MET4 
LNJ SB6*<NAKERR 


sZ’OOOO* *<OUTCJN 


ERROR "NAK" 


REPLACE WCS MB 


RESET PARITY FORCING MOPE 


* RESETTING PARITY FORCING MODE ALSO NECESSARY Sg OUTpUTTlNG ADKS* ETC.* 

* FOLLOWING DOESN'T CAUSE PARITY ERROR# 

BIOT >MET4A 

LNJ SB6 *<NAKERR ** ERROR "NAK" ** REPLACt WCS MB 

* OUTPUT CONTROL WORD SHOULD NEVER BE NAK'D. 


= Z 1 0400•* <OUTADR 


>MET S 

:j>66 * <NAKERR 


=Z 1 0000•♦<0UTDAT 


BIOF >MET6 

LNJ $B6*<ACKERR ** ERROR "ACK" ** REPLACE WCS MB 

* SHOULD HAYt BELN NAK'D CAUSE ERROR FLOPS 10 AnD 14 SHOULD HAVE BEEN 

* SET WHEN OUTPUT DATA. 

* 

MET6 falNC SR 2 *>MET9 
* 

* 2ND TIME - VERIFY INITIALIZE RESETS BITS 10*13 AND 14 


ADRS OF NUN-EX I ST ANj RtSOURCt 

** ERROR "NAK" ** REPLACt WCS MB 
OUTPUT ADKS SHuULD NEVER &E NAK'D. 

SHOULD SEI STATUS BIT 13 AND CAUSE NAK 


-Z* B000»*<UUTCJN 


initialize WCS 


>MET f 

SB6 * <NAKtRR ** ERRUR "NAK" ** 

OUTPUT CONTROL WORD SHOULD NEVtR BE NAK * D, 

=$R4,<1NSTA1 


BIOT >MtTb 
LNJ Sb6,<NAKERR 


ERROR "NAK" 


REPLACE WCS MB 


REPLACE WCS MB 


INPUT SIAIUS ShOULD NEVER BE NAK'D# 
STATUS SB 


MET8 LDK *R5*<MQDbIT STATUS Sb 

CMR $R4 * = $K5 

BE >MtT13 

LNJ $B6 *<STERR ** tRRUR "STATUS" ** REPLACE WCS MB 

* STATUS SHOULD HAVE BtEN CLEARED BY 1N1UALIZE COMMAND. 

* STATUS READ IN R4. 

* 

B >MtT13 

* 

* 1ST TIME - VERIFY INPUT STATUS RESETS BUS 10,i3*I4 

* 

MET9 10 s $R4 * <INST AT 


BIOT >MET 10 
LNJ SB6 *<NAKtkK 


MET 10 LDR 
UR 
CMR 
BE 
LNJ 


5>RS » sz * 0026 ' 
SR5 *<MODBIT 
SR5*=SR4 
>MET 11 
3 >B6 *<S I ERR 


** tRRUR "NAK" ** REPLACE wCS Mb 
INPUT SIAIUS ShOULD NEVER BE NAK'D. 


ERRUR "STAT US" ** REPLACE WCS MB 


STATUS SHOULD BE HEX 0026 PLUS MODE BIT(4 OR V). STATUS READ IN R4. 


1U s$R4*<INSTAT 

BIOT >MET12 
LNJ Sb6,<NAKERR 


** tRRUR "NAK" ** REPLACE WCS MB 
INPUT SIAIUS ShOULD NEVER Bt NAK'D. 

STATUS SB 


MET 12 LDR SR5*<MQDtiIT STATUS SB 

CMR $R5 * = $R4 

BE MET1A GO BACK FOR INITIALIZE 

LNO SB6 * <ST ERR ** ERRUR "STAT US" ** REPLACE WCS Mb 

* INPUT STATUS SHOULD HAVE CLEARED ALL BITS EXCEPT MODE BIT(4 OR- 9). 

* STATUS READ IN R4. 

* B MfcTIA gQ BACK FOR INITIALIZE 

* 

* NEXT VERIFY CAN FORCE BIT 10(NATIVE PROM LOADING ERROR) WHEN BITS 13 

* (NON-tXI ST ANT RtSOURCt) AND 14(PARITY ERROR) A*E SET. ALSO VERIFY 

* BIT 14 NOT RESET WHEN OUTPUT DATA TO NAIIVE PRuM. 



001452 

001453 

001454 

001455 

001456 

001457 

00145b 

001459 

001460 

001461 

001462 

001463 

001464 

001465 

001466 

001467 

00146b 

001469 

001470 

001471 

00147c 

001473 

001474 

001475 

001476 

001477 

00147b 

001479 

001480 

001481 

001482 

001483 

001484 

001485 

001486 

001487 

001488 

001489 

001490 

001491 

001492 

001493 

001494 

001495 

001496 

001497 

001498 

001499 

001500 

001501 


TLE 

CPFS4, 

•REV A # 




05A3 

8070 

0400 

MET 13 

10 

=2*0400*,<OUTADR 

05A5 

0000 

I4A2 




05A7 

0703 



BIOT 

>METI4 

05 Ab 

1380 

U4B 

* 

LNJ 

SB6,<NAKERR 

05 AA 

8070 

3000 

# 

MET 14 

10 

=2*3000*,<OUTC0N 

05 AC 

0000 

I4AI 




G5At 

0703 



BIOT 

>MET15 

05 AF 

E3b0 

114b 


LNJ 

SB6*<NAKERR 




* 


OUTPUT CONTROL WORO : 

05B1 

8070 

0000 

MET 15 

10 

=2*0000*,<OUTDAT 

05B3 

0000 

14A3 




05B5 

0703 



BIOT 

>MET16 

05B6 

E380 

114b 


LNJ 

Sb6*<NAKERR 

05Bb 

b070 

0000 

MET 16 

10 

=2*0000*,<OUTCON 

05BA 

0000 

14A1 







* RESETTING 

PARITY FORCING MODE Al 




* FOLLOWING 

OOESN•T CAUSE PARITY 1 

05bC 

0703 



BIOT 

>MET17 

05BD 

E3bO 

114B 


LNJ 

SB6 *<NAKERR 




* 

£ 


OUTPUT CONTROL WORD : 

05bF 

8070 

0000 

MET 17 

10 

=2*0000*,<UUTAJR 

05CI 

0000 

14A2 




05C3 

0703 



BIOT 

>MET18 

05C4 

E380 

114b 

* 

LNJ 

%bt ,^NAKERR 

05C6 

8070 

0000 

MET 18 

10 

=2*0000*,<UUTDAT 

05Cb 

0000 

14A3 




05CA 

0783 



blOF 

>MET19 

05Cb 

E380 

1180 


LNJ 

SB6,<ACKERR 




* GOT 

ACK. 

SHOULD HAVE BEEN NAK 




* HAVE BEEN 

i SET WHEN OUTPUT DATA 

05CD 

8054 


‘ MET 19 

10 

=$R4,<1NSTAT 

05CE 

0000 

1 4A6 




05D0 

0703 



BIOT 

>MET20 

05DI 

E380 

114b 

* 

LNJ 

SB6,<NAKERK 

05D3 

0870 

0022 

* 

MET20 

LOR 

SR5,=2*0022* 

0505 

D 400 

148D 


OR 

SR5»<MODBlT 

05D7 

C955 



CMR 

SR4,=$R5 

05D8 

0903 



BE 

>MET21 

0509 

E380 

Ub5 


LNJ 

$B6,<ST ERR 


001530 

001531 

001532 

001533 

001534 

001535 

0o1536 

001537 

001538 

001539 

001540 

001541 

00154c 

001543 

001544 

001545 

001546 
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ADRS OF NUN-EXiSTANj RESOURCE 

** ERROR "NAK" ** REPLACt WCS Mb 
OUTPUT ADKS SHOULD NEVER DE NAK• D. 

FORCE bUTH PARITY bITS BAD 

** ERROR "NAK" ** REPLACE WCS Mb 
>HOULD NEVtR bE NAK»D. 

SHOULD SET STATUS BITS 13 AND 14 

** ERROR "NAK" ** REPLACt WCS MB 

RESET PARITY FORCING MODE 

.SO NECESSARY So OUT PUTT I NO ADRS* ETC. 
:RRQR. 

** ERROR "NAK” ** REPLACE WCS MB 
>HOULD NtVtK BE NAK*p. 

ADRS OF NATIVE PROM 

** ERROR "NAK" ** REPLACE WCS MB 
OUTPUT ADRS SHuULD NEVER BE NAK * D. 

SHOULD SE1 10* RESET u* AND NAK 
** ERRUR "ACK" ** REPLACt WCS MB 


** tRRUR "NAK" ** REPLACt WCS Mb 

input siArus should never be nak*d. 


LNJ $B6♦<STERR ** ERROR "STATUS” 

* BITS 10,14 AND MODE BIT<4 OR 9) ONLY SHOULD Be SET. 

* IN R4• 


#* RtPLACE WCS Mb 
STATUS READ 


001502 

u5Db 

8070 

uOOO 

MET 2 1 

IU 

= 2 * 0000 *,<OUT ADR 


050D 

0000 

14A2 


OU1503 

05 OF 

0703 



BIUT 

>MET22 

001504 

001505 

05E0 

E380 

114B 

# 

LNJ 

S>B6*<NAKERR 

001506 




# 



001507 

05E2 

8070 

0000 

MET 2 2 

IU 

=2*0000*,<OUTOAT 


05E4 

0000 

14 A3 



00150b 

0 5 E6 

0703 



BIOT 

>MET 23 

001509 

001510 

05E7 

E380 

114b 

# 

LNJ 

$B6,<NAKERK 

001511 

05E9 

8070 

0400 

MET23 

IU 

=2*0400*,<OUTADR 


05Eb 

0000 

14A2 



001512 

05ED 

0703 



BIUT 

>MET24 

001513 

001514 

U5Et 

E380 

114b 

* 

LNJ 

a»B6, <NAKERR 

001515 




* 



001516 

05F0 

8070 

1000 

MET 24 

10 

=2*1000*,<OUTCJN 


05F2 

0000 

14A1 



001517 

05F4 

8070 

0000 


10 

= 2*0000*,<UU1 OAT 


0 5 F 6 

0000 

14A3 


00151b 

05Fb 

0783 



BIOF 

>ME T25 

001519 

05F9 

E380 

1180 


LNJ 

SB6,sACKERR 

001520 




* SHOULO HAVE BEEN NAK•0 CAU‘ 

001521 




* OUTPUT OAiA. 

001522 




* 



001523 

05Fb 

8070 

0000 

MET 2 5 

10 

=2*0000*,<OUTCJN 


05 FD 

0000 

14 A1 


001524 

05FF 

8054 



10 

=$R4,<INSTAT 


0600 

0000 

14A6 



Ou1525 

060 *i 

0870 

0026 


LOR 

SR5,=2*0026* 

001526 

0604 

U400 

1480 


UR 

SR5,<MUObIT 

001527 

0606 

C955 


CMR 

*R4,=*R5 

Ou152b 

0607 

0903 



BL 

>MET (£b 

001529 

060b 

E380 

11 b5 


LHJ 

Sb6,<STERR 


* VERIFY CAN SET bllS 13(NON-EX I ST ANT RESUURCt EkROR) AND IMPARITY 

* ERROR) WHEN BIT 100MATIVE PROM LOADING ERROR) IS SEt. 

OUTPUT ADRS OF NATIVE pROM 

** ERROR "NAK" ** REPLACE WCS MB 
OUTPUT APRS SHOULD NEVER BE NAK * D. 

SHOULD SEI STAiUS BIT 10 

** ERRUR "NAK" ** REPLACE WCS MB 
OUTPUT APRS OF NON-EXISTANT RESOURCE 

** ERROR "NAK" ** REPLACt WCS MB 
OUTPUT APRS SHOULD NEVER BE NAK * D. 

FORCE RIGHT PAkITY BIT BAP 

SHOULD SET BITS 13,14 AND CAUSE NAK 


** 


ERRUR "ACK" ** REPLACE WCS MB 
5 BIT 10 SHOULD HAVE BEEN SET WHEN 


RESET PARITY FuRCINg MODE 


** ERRUR "STAIUS” ** RtPLACE WCS MB 





* VERIFY PARITY CHECKED WHEN ' 

060A 

8070 

3000 

MET 2 6 

IU 

=2*3000*,<OUTCJN 

06UL 

0000 

14A1 



060L 

8000 

1497 


10 

<RAMaDR,<OUTADR 

0610 

0000 

14A2 



0612 

0703 



BIUT 

>MET2 7 

0613 

E3bO 

114B 

* 

LNJ 

j»B6,<NAKERR 

0615 

8070 

0000 

# 

MET27 

iu 

=2*0000*,<OUTC0N 

0617 

0000 

14A1 



0619 

8054 



IU 

= $R4,<1NSTAT 

061A 

0000 

14A6 



06 1C 

5C02 



LDV 

$R5 * = 2 

0610 

0400 

1480 


UR 

$R5,<MODBIT 

06 1 F 

C955 



CMR 

SR4, = $R5 

0620 

0903 



BE 

>APT 


STATUS SB HEX 0026 PLUS MODE BIT(4 OR V), STATUS READ I IN R4. 


SET PARITY FORCING MODE 
SHOULD LAUSE PARITY ERROR 

** ERRUR "NAK" ** REPLACE WCS MB 
OUTPUT ADRS SHOULD NEVER BE NAK 1 D. 


reset parity forcing mode 


IF Q.K.* GO TO NEXT JEST 






TITLE CPI-54* * REV A* 


PACE 18 


OU1547 
00154b 
001549 
0U155U 
001551 
001552 
001553 
001554 
001555 
001556 
001557 
00155b 
001559 
001560 
001561 
001562 
001563 


0621 6380 1165 


LNJ SU6*<STERK ** ERROR "STATUS" ** REPLACE W< 

STATUS SB HEX 0002 PLUS VIUOE BIT (4 OR 9). STATUS READ 15 IN R4. 


** ERROR "STATUS" ** REPLACE WCS MB 


001571 

001572 

001573 

001574 

001575 


001579 

00158O 

001581 

00158*: 

001583 


001585 
001586 
001587 


8757 

8070 0800 
0000 14A2 
8057 

0000 14A3 
8070 OCOO 
0000 14A2 
8057 

0000 14A3 


E870 AAAA 
8070 0800 
0000 14A2 
8056 

0000 14A3 


001592 

001593 

001594 

001595 

001596 

001597 

00159b 

001599 

001600 

001601 

001602 

001603 

001604 


KOI 

9F00 1498 
OT bp 


001609 

001610 

001611 

001612 

001613 

001614 

001615 

001616 

001617 

001618 

001619 


001621 

001622 

001623 

001624 

001625 

001626 


1C01 

9FQ0 1499 


8070 0800 
0000 14A2 
8057 

0000 14A3 
8070 OCOO 
0000 14A2 
8057 

0000 14A3 


8070 OCOO 
0000 14A2 
8056 


********************* 

* * 

* ADDRESS PATH TEST * 

* * 

********************* 

* 

* THIS TEST NECESSARY ONLY IF BOTH RAMS PRESENT. 

* THIS TEST ASSUMES PARITY CHECKER AND DA IA PATH (DATA BUS) TO PARITY 

* CHECKER HAVE BEEN TESTED, 


001564 

0623 

8980 

1495 

APT 

CM2 

<RAM1FL 





001565 

0625 

0900 

06E5 


BE 

<DPT 

SKIP THIS TEST. 

RAM i 

NOT 

PRESENT. 

001566 

0627 

8980 

1496 


CMZ 

<RAM2FL 




001567 

001568 

0629 

0900 

06E5 

* 

BE 

<DPT 

SKIP THIS TEST. 

RAM 2 

NOT 

PRESENT, 

001569 

0620 

8700 

1498 


CL 

<APTeF1 

CLEAR ERROR FLAG 

1 



001570 

0620 

8700 

1499 


CL 

<APTtF2 

CLEAR ERROR FLAG 

2 




* CLEAR 1ST LOC.* 20NE 1 OF EACH DB 

* 

CL =SR7 

10 sZ'OdOO*•<OUTADR A 


APRS OF 1ST RAH 


= 3>R7 *<OUTDAT 
= 2*0C00* #<OUTADR 
= SR 7 * <0UTDA7 


APRS OF 2ND RAH 


* WRITE HEX AAAA TO 1ST LOC.* ZONE l OF Pb 1 (MAY BE DB 2) 
LPR SR6 *~Z * AAAA* 

10 =2*0<j00« ,<OUTADR APRS OF PB 1 


-$R6♦ <UUT DAT 


APRS OF PB 1 
WRITE AAAA 


* REAP 1ST LUC#* ZONE 1 OF DB 1 (MAY BE 2) 


001588 

064 7 
0649 

8070 

0000 

0800 

14A2 

10 

*2 1 ObOO *,<0UTADR 

APRS OF PB I 

001589 

0646 

064C 

8054 

0000 

14A5 

10 

= $R4 * <1NPAT 

READ 

001590 

0641 

C956 


CMR 

$R4,=SK6 

=AAAA? 

001591 

064F 

0905 


BE 

>AP T 1 

BRANCH IF YES 


* SET ERROR FLAG 1# MAY BE MB ERROR BECAUSE EITHER? 1, CAN * T WRITE 

* EITHER BOARD (*)5 2. MB SHORT OR OPEN (*)? OK 3# BAD DATA-IN KEG., 

* DATA-OUT RtG., OR DATA SELECTOR(*)• MAY BE PB ERROR BECAUSE EITHER? 

* 1. SHORT ON PB 1 OR 2 (*)♦ 2# DB 1 OPEN? OR 3# BAD LOC ON PB l# 

* (*) DENOTES WILL OCCUR AGAIN BELOW. 

* 

LPV *Rl*=i SET ERROR FLAG 1 

STR SR 1 * <APTEF1 

b >APT 2 

* 

* READ 1ST LOC#* eONE 1 OF DB 2 (MAY BE Pb 1) 

* 


001605 

0654 

0656 

8070 

0000 

OCOO 

14A2 

APTl 10 

= Z»OcOO* *<OUTADR 

ADRS OF Pb 2 

001606 

0658 

0659 

8054 

0000 

14A5 

10 

~$K4,<INDAT 

READ 

001607 

0fa5b 

C956 


CMR 

SK4*=SK6 

sAAAA? 

00160b 

065C 

0984 


BNE 

> APT2 

BRANCH IF NO 


* SET ERROR FLAG 2# EITHER PB 2 ERROR? WRITING INTO BOARD 1 CAUSES 

* WRITING INTO bOARP 2? OR MB ERROR? ALWAYS SELECT SAME PB (If MB* WILL 

* OCCUR AGAIN BELOW)# 

* 

LPV SR 1 *s1 SET ERROR FLAG 2 

STR SR 1 * <APTEF2 

* 

* U FAR 1ST L<»r-. 7QNE 1 OF EACH DB 

* 

APT2 10 =2»0b00**<OUTADR APRS OF 1ST RAM 


=$R7*<0UTPAT 
sZ'OCOO* *<OUTADR 
=SR/*<OUTDAT 


* WRITE HEX AAAA TO 1ST LOC.* 

* 

10 sZ’OCOO*,<OUTADR 



0673 

0000 

14A3 


001628 



* 

001629 




* 

001630 

001631 

0675 

8070 

OCOO 

* 


0677 

0000 

14A2 


001632 

0679 

8054 




067 A 

0000 

14A5 


001633 

067C 

C956 



001634 
OQ1635 

06 7 D 

0920 


* 

001636 

067E 

8754 



QQ1637 

067 F 

8054 




0680 

0000 

14A6 


00163b 

0682 

C900 

148D 


001639 

0684 

0981 

005C 


001640 

0686 

8980 

1498 



= 3>R6«<OUTDAT 


APRS OF 2ND RAH 

ZONE 1 OF Db 2 (MAY BE DB l> 
APRS OF Db 2 
WRITE AAAA 


* READ 1ST LOC.* ZONE 1 OF DB 2 (MAY BE Pb 1) 


10 

=z«ocoo» ,<outadr 

APRS OF PB 2 


10 

=$R4,<INDAT 

READ 


CMR 

BE 

$R4,=$R6 
>APT 5 

sAAAA? 

BRANCH IF YES 


ft 

= $R4 

= $R4 »<INSTAT 

ERROR 


CMR 
BNE 
CM 2 

$K4*<M0DBIT 

APT 1 5 
<APTEF1 

ERROR FLAG 1 StT? 

v> 
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001641 

00164*; 

001643 
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0666 090C 


001644 

001646 

001646 

001647 

001646 

001649 

001650 


001651 

001654 

001653 

001654 

001655 

001656 

001657 

001656 

001659 

001660 

001661 

001662 

001663 

001664 

001665 

001666 

001667 

001666 

001669 


001670 

001671 

001674 

001673 

001674 

001675 


001676 

001677 

001676 

001679 


0669 
066b 
0666 
0661 
066F 


F6C0 0003 
0360 0000 
OF 80 
0669 
13F2 


0696 
0699 
069 A 


OF 60 
0694 
13F5 


069d OF 81 0040 


0690 
06 9F 
06 A1 
0bA2 
06A4 
06A5 
06A6 
06 A6 
06 AA 
06 AC 
06 Ao 

06AL 

06B0 


06bi 
0603 
0605 
06bo 
06b 7 


06btt 

06bA 


06bb 

06BO 

06dF 

06C0 

06C1 


6070 0600 
0000 14 A2 
6053 

0000 14A5 

6754 

8054 

0000 14A6 
C900 1480 
0981 0036 
0956 
0996 

8980 1499 
090b 


FbCO 0003 
0360 0000 
OF 80 
06bl 
13F 8 


L360 UFO 
OF A4 


FBCO 0003 
0360 0000 
0F80 
06BB 
13 Fb 


06C2 0F9 7 


001684 

001685 

001686 

001687 

001688 

001689 

001690 


001691 
001692 
001693 
001694 
001695 
001696 
001697 
001698 
001699 
001700 
001701 
001702 
001703 
001704 
001705 
001706 
001707 
001708 
001709 
001710 
001711 
001712 
001713 
001714 
001715 
001716 
001717 
001716 
001719 
001720 


06Cb 

06CC 


06C6 

13Ft 


06CD 0F6C 


06Cc 

0600 


0601 

0603 

0605 

0606 

0607 


8980 1499 
0915 


FBCO 0003 

0380 0000 

0F60 

0601 

1401 


APT3 


bt >AP T 4 

CALL 2VSEK*APT3* MAPJ 1 


BRANCH IF NO 
** LRRUR "APIA" 


** MAY Bt WCS Mb 


0690 

0694 

E380 

0F61 

1205 

004b 


* 

LimJ 

b 

0o94 

0696 

FBCO 

P360 

0003 

0000 

X 

APT4 

CALL 


tITHLK Mb LRROK (StE COMMLNT AbOVt REGARPING bETIlNG OF tRRUK FLAG 1) 
OR SHORT UN tllHLR Ob, 


SB6 *<PRMAY 
APT 14 

2V$tK*APT4,MAPT2 


* READ 1ST LOC.* 

* 

APT5 10 

10 

CL 
10 

CMk 
bNt 
CMR 
bNt 

* 

CM2 
bt 


APT 1 3 

40Nt 1 OF 06 
52*0600* *< OUT A OR 
=$R3,<INDAT 
s $R4 

=$R4*<INSTAT 

SR4 * <MO0b 1 T 
APT 15 
SR3*5$R6 
> APTo 

<APTtF 2 
>APT f 


PRINT " * MAY bt WCS Mb *" 

** ERROR "APT2" ** RtPLACt Pb 2 

EITHER OB 2 OPcN OR BAD LOC ON Pb 2 

(MAY Bt Ob 2) 

APRS OF Pb 1 
REAP 


sAAAA? 

branch IF 


NO 


APT6 CALL EVSEK *APT6 *MAPT 3 


* 

APT7 


LNJ 

b 


SB6*<PKRMb 
> A P T 14 


CALL 2V$ER*APT7,MAPT4 


ERROR* IS ERRuR FLAG 2 SET? 

BRANCH IF NO 

** ERROR "APT 3" ** REPLACE WCS Mb 


ALWAYS SELECT uAME DB. 

PRINI « * RtPLACE WCS Mb *" 

** ERROR "APTh" ** REPLACt Pb 1 


* WRITING INTO Pb 2 CAUSES WRITING INTO Pb . 1. 


001680 

06C3 

8960 

1498 


APT 8 

CM2 

00io8i 

001682 

06C5 

0909 



* 

bt 

001683 

06Co 

FBCO 

0003 


APT 9 

CALL 


06C8 

0 380 

0000 

X 




06CA 

0F80 






APT 10 


* 

APT 11 


>APT 12 

<APTtF 1 
>APT 10 

2VSEK,APT9*MAPT5 


>APT12 

<AP T EF2 
>DPT 


CM2 

bt 


CALL 2V5EK»APT 1UMAPT6 


ERROR FLAG 1 StT? 

BRANCH IF NO 

** ERROR "APT6" ** RtPLACE Pb 1 


EITHER PB 1 OPEN OR BAD LOC ON PB 1 

ERROR FLAG 2 StT? 

BRANCH IF NO TO NEXT TEST 


** ERRUR "APT6" ** 


RtPLACt PB 2 


0606 

OF 84 



b 

> AP T13 

0609 

E380 

11F7 

APT 12 

LNJ 

SB6 * <PRRPB1 

06Pb 

0F83 



b 

>APT14 

06PL 

E380 

11FE 

APT 13 

LNJ 

*66*<PKKDb2 

06PE 

E380 

120C 

APT 14 

LNJ 

SB6 *<PK5TS 

06t0 

0F85 



B 

>DPT 

06E1 

0800 

1480 

APT 1 5 

LPR 

SR5 * <MOPbiT 

06E3 

E380 

11B5 


LNJ 

SB6 * <STtRR 


WRITING INTO Pb 1 CAUSES WRITING INTO PB 2 

PRINT " * RtPLACE DB 1 

PRINT " * REPLACE DB 2 

PRINT SIA I US 
GO TO NtXT TEST 


STATUS SB 
** ERROR 


"STATUS" ** REPLACE WCS MB 


* 

* 

* 

* 

****************** 

* * 

* DATA PATH TEST * 

* * 

****************** 

* 

* PURPOSE OF THIS TEST TO DETECT FOLLOW I NO FAULTS AND, IF POSSIBLEt 

* ISOLATE TO OKU* BY WALKING US AND 0*5 THRU 1ST 64-BIT WORD OF EACH 

* RAM PRESENT, CONCERNED HERE WITH PROBLEMS EXTtRNAL TO MEMORY CHIPS. 

* 

* MOTHER BOARD FAULTS; 
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001721 

001724 

001723 

001724 

0 01 7 2 S 
001726 
001727 
00172b 
001729 
001730 
001731 
001732 
001733 
001734 
001733 
001736 

06E5 

9800 

14A2 

001737 

06E 7 

A800 

1 4A3 

00173b 

0bE9 

B800 

14A5 

001739 
00 1 740 
001741 
00174*: 
001743 
001744 
00174b 

06LB 

8700 

149A 

00174b 

ObED 

6980 

1495 

001 747 

06EF 

0901 

0062 

00174b 
001749 
001 7 SO 
001751 

06F1 

F 870 

0800 

001752 
001753 

06F3 

6C01 


001754 

06F4 

EF 00 

1487 

001755 

001756 

ObF 6 

4C01 


001757 

001756 

001759 

001760 

06 F 7 

5CF0 


001761 

06F b 

8057 


001762 

06 F 9 
ObF A 

0051 

8056 


001763 

ObF b 
06 F C 

0053 

6056 


001764 

0 6F D 
ObFE 

0053 

6056 


001765 

ObF F 
0700 

0053 

8054 


001766 

0 701 
0702 

0052 

6057 


001767 

0703 

0704 

0051 

8056 


001766 

070b 
07 06 

0053 

8056 


001769 

0 7 07 
070b 

0053 

8056 


0 U1 7 7 0 

0709 

070A 

0053 

8056 


001771 

070b 

070C 

0053 

C956 


001772 

070D 

0980 

077b 

001773 

070F 

4011 


001774 

0710 

57E6 


001775 
001776 
001777 
00177b 

0711 

5CF0 


001779 

0712 

8057 


001780 

0713 

0714 

0051 

6056 


001781 

0715 

0716 

0053 

6056 


001782 

0/17 

0718 

0053 

8054 


001783 

0719 
07 1A 

0052 

8057 


001784 

071b 
07 AC 

0051 

8056 


001785 

07 1D 
07 1E 

0053 

8056 


001786 

07 1F 
O' 7 20 

0053 

8056 


001787 

on 1 

0722 

0053 

C956 


001788 

0723 

0980 

077b 

001789 

0725 

4011 


001790 

0726 

5 7 EC 


001791 

001792 

001793 

001794 

0727 

5CF0 

8057 


001795 

0728 


001 7 96 

0729 

072A 

0051 

8056 


001797 

072b 

072C 

0053 

8054 


001796 

07 2D 
072E 

0052 

8057 


001799 

072 F 
0730 

0051 

6056 


OOlbOO 

0731 

0732 

0053 

8056 


OOlbOl 

0733 

0734 

0053 

C956 


00 j 

lb02 

0735 

0980 

077B 

00] 

L 603 

0737 

4011 


00] 

1604 

0736 

57F0 


00] 

00] 

881 

L605 

L806 

L 80 7 
IbOb 

0739 

5CF0 


00] 

L 609 

073A 

8057 



- DATA LINE SHORT/OPEN 

- BAD DATA-IN REG*« DATA-OUT REG* % OK DATA SELECTOR 
(E.G. BIf STUCK HigH/LOW) 

- MALFUNCT|ONI NO DATA SELECTOR 


DAUGHTER bUARD FAULTS 

- DATA LINE short 

DAUGHTER dOARD FAULTS 

- DATA LINc. OPEN 

- BAD MEMORY CHIP 


THAT CAN * T lSOLAlE TO OKUJ 


THAT CAN ISOLATE TO OKU IF HAVE 2 RAMS; 


* 

* 

* DEFINE REGISTER USAGE 

* 

DPT 


LDR 

LDR 

LDR 


SR I * <UUT ADR 
$R2 *<OUTDAT 
$R3 * <INDAT 
SR4 USED FOR 
*R5 USED FOR 
SR6 USED FOR 
SR7 = 1ST LUC 


WALKING l’S AND Q»S 
SilFT COUNT ( = 16) 
DATA INPUT AND TEMP 
DF RAM 1 OR RAM 2 


WALK 


* 

DPT 1 


* LONE 

* 

DP 1 2 
DPT 3 


* 

* LONE 

* 


DPT4 


* LONE 

* 


DPT5 


* LONE 

# 

DPT6 


CL <DPTEF1 
CML <RAM1FL 
BE l>PT 7 

1»S THRU 1ST 64-biT 

LDR *R7*=Z»0800» 

LDV SR6«=1 
STR SR6*<TMPi 


CLEAR RAM 1 ERROR FLAG 
CHECK IF RAM i PRESENT 
BRANCH IF NO 

.OCATION OF RAM i 

1ST LOC OF RAM i 


FLAG=1 WHILE WALKING 1*S* = 0 WHILE 
WALKING 0*S f 
WALK 1«S FIRST* 


LDV SR4 * s1 

4 (COMES BACK HERE TO WALK 0*S THRU 1ST LuC OF EACH RAM PRESENT) 


LDV 

1U 

$R5 % = -16 
=$R7,=iKl 

OUTPUT ADRS 




1U 

= SR6* = S>R3 

INPUT DATA (DUMMY 

for 

lone 

BUMP) 

10 

= 3>R6* = $R3 

INPUT DATA (DUMMY 

for 

ZONE 

BUMP) 

10 

• SR6 * =$R3 

INPUT DATA (DUMMY 

f or 

ZONE 

BUMP) 

1U 

=$R4*=$R2 

OUTPUT DAI A TO LONE 4 



1U 

=SR7*=$K1 

OUTPUT ADRS 




IQ 

= $R6 * = $K3 

INPUT DATA (DUMMY 

FOR 

ZONE 

BUMP) 

10 

=SR6$?$R3 

INPUT DATA (DUMMY 

FOR 

ZONE 

BUMP) 

IU 

= S>R6t = $R3 

INPUT DATA (DUMMY 

FOR 

ZONE 

BUMP) 

iu 

= $R6» = S>R3 

INPUT DATA FROM LONE - 

k 


CMR 

bNE 

SCL 

blNC 

3 

LDV 

IU 

SR4 *= $K6 
<DPTtRR 

SR4 * 1 

SR5i>DPT3 

ERROR 

ROTATE 1 (OR 0) 1 
DU 16 TIMES 

POSITION 

LEFT 

*R5*=-16 

=$R7,=$R1 

OUTPUT ADRS 




IU 

s$R6*=SK3 

1NPUI DATA (DUMMY 

FOR 

ZONE 

BUMP) 

10 

=SR6*=$R3 

INPUT DATA (DUMMY 

for 

ZONE 

BUMP) 

10 

?$R4*=$K2 

OUTPUT DAI A TO LONE 3 



IU 

=$R7,=$Rl 

OUTPUT AQKS 




lu 

=$R6*=$R3 

INPUT DATA (DUMMY 

for 

ZONE 

BUMP) 

10 

=$R6*=SR3 

INPUT DATA (DUMMY 

for 

ZONE 

BUMP) 

IU 

=$R6,=$R3 

INPUT DATA FROM LON£ ] 

3 


CMR 

BINC 

2 

LDV 

10 

*R4,=$R6 

<DPTERR 

SR4tl 

*R5*>DPT4 

ERROR 

ROTATE 1 (OR 0) 1 
DO 16 TIMES 

POSITION 

LEFT 

SR5 *s-16 
= $R7* = 3>Ri 

OUTPUT ADRS 




10 

= SR6 * = $K3 

INPUT DATA (DUMMY 

FOR 

ZONE 

BUMP) 

IU 

= $R4»= S>R2 

OUTPUT DAI A TO LONE 2 



IQ 

=$R7,=$R1 

OUTPUT ADRS 




IQ 

= $R6i-SR3 

INPUT DATA (DUMMY 

for 

ZONE 

BUMP) 

IQ 

=$R6*=$R3 

INPUT DATA FROM LON£ , 

2 


CMR 

BNE 

SCL 

BINC 

1 

LDV 

IQ 

$R4*=$R6 

<DPTtRR 

SR4 « 1 
$R5 * >DPT5 

ERROR 

ROTATE 1 (OR 0) l 
DO 16 TIMES 

POSITION 

LtFT 

$R5♦ 16 

= $K7 * = SR1 

OUTPUT APRS 






TITLE CPFS4# *REV A* 


PAGE 22 



073B 

0051 


001810 

073C 

8054 



073D 

0052 


001811 

073E 

8057 



073F 

0051 


001812 

0740 

8056 



0741 

0053 


001813 

0742 

C956 


001814 

0743 

0981 

0037 

001813 

0745 

4011 


001816 

0746 

57F4 


001817 




0Q1618 




001819 




001820 

0747 

C870 

FFFE 

001821 

0749 

8880 

1487 

001822 

074B 

b980 

1487 

001823 

C74D 

0901 

FFA9 

001824 




001823 




001826 

074F 

F970 

0800 

001827 

0751 

0988 


001828 




001 b29 

0752 

8980 

1496 

001830 

0754 

0908 


001831 




00.1832 




001833 




001834 

0 755 

F870 

ocoo 

001b33 

07 37 

0F81 

FF9B 

001836 




001837 




001838 




001b39 

0759 

8980 

149 A 

001840 

075B 

098E 


001841 

075C 

8054 



075D 

0000 

14A6 

001842 

075F 

C900 

148D 

001843 

0761 

0900 

07CA 

001844 

0763 

D800 

148D 

001845 

0 765 

E380 

11B5 

001846 

0767 

0F81 

0062 

001847 




001848 




001849 




001850 

0769 

8754 


001851 

076A 

8054 



076B 

0000 

14A6 

001852 

076D 

C900 

148D 

001853 

076 F 

09F<* 


001854 





0770 

FBCO 

0003 


0772 

D380 

0000 


0774 

0F80 



0775 

0770 



0776 

1404 


001855 




001856 




001857 

0777 

E380 

11F7 

001b58 

0779 

0F80 

07C8 

001859 




001860 




001861 




001862 

077b 

CFOO 

1488 

001863 

077D 

8754 


001864 

077E 

8054 



077F 

0000 

14A6 

001865 

0781 

C900 

148D 

001866 

0783 

09E0 


001867 

0784 

C800 

1488 

00186b 




001869 

078b 

F970 

0800 

001870 

0788 

091C 


001871 

0789 

8980 

1495 

001b72 

07 BB 

0921 


001873 

078C 

8980 

149 A 

001874 

078t 

098C 



OQ1b75 
001876 
001b77 
00187b 


001879 

001880 

001881 

001882 

001888 

001884 

001883 

001888 


00188 / 

001888 

Q01b89 

001890 

001891 

001892 

001893 

001894 

001898 

001898 

001897 

001898 

001899 

001900 


FBCO -0003 
D380 0000 
0F80 
07 8 F 
1407 


E360 11FE 
0F81 002F 


FBCO 0003 
0380 0000 
OF 80 
0 79A 
140A 


E380 1203 
0FA3 

8980 1496 
0906 

EFOO 149A 
0F80 0753 



IQ 

=SR4,5$R2 


OUTPUT DATA TO ZONE 1 


10 

~$R7 * = $R1 


OUTPUT APRS 


10 

=SR6#=$R3 


INPUT DATA FROM ZONE 1 


CMR 

SR4 # = $R6 




BNE 

DPTERR 


ERROR 


SCL 

*R4#1 


ROTATE 1 (OR 0) 1 POSITION LEFT 

£ 

BINC 

$R5 #>DPT 6 


DO 16 TIMES 

* WALK 

ft 

Q*S 

THRU 1ST 64-BIT 

LOCATION OF THIS RAM IF HAyEN*T ALREADY 


LDR 

SR4#5Z*FFFE* 


PATTERN FOR WALKING Q«S 


DEC 

<TMP1 




CMZ 

<TMP1 



# 

BE 

DPT2 


IF TMP150# WALK 0*S 

* 

CMR 

SR7 * sZ * 0800 * 


WERE WE TESTING RAM i? 

ft 

bNE 

>DPT 9 


BRANCH IF NO 

DPT7 

CMZ 

<RAM2FL 


CHECK IF RAM 2 PRESENT 

£ 

bE 

>DPT10 


BRANCH IF NOT 

* WALK 
£ 

1*5 

THRU 1ST 64-BIT 

LOCATION OF RAM 2 

DPT 8 

LDR 

$R7#=Z*0C00» 


1ST LOC OF RAM 2 

* 

B 

DPT 1 



* FINISH UP 

(AND CHECK FOR 

Db 1 

ERROR) 

DPT 9 

CMZ 

<DPTEF1 


ERROR IN 1ST RAM? 


bNE 

>DPT12 


BRANCH IF YES 

DPT 10 

ID 

-$R4 # <INST AT 


INPUT S1 ATUS 


CMR 

$R4 #<MQDBIT 




BE 

<MAT 


IF O.K♦* GO TO NEXT TEST. 

DPT 11 

LDR 

3>R5 * <MODB 1 T 


STATUS SB 


LNJ 

$66 # <STERR 


** ERROR "STATUS" ** REPLACE W(. 


B 

MAT 


GO TO NfcXT TEST 

* BOTH 

ft 

RAMS 

PRESENT 



DPT 12 

CL 

= $R4 




10 

5$R4,<1NSTAT 




CMR 

$R4,<M0DBIT 




BNE 

>DPT11 



DPT13 

CALL 

ZVSER#DPT13»MDPTl 

** ERROR "DPT 1" ** REPLACE Dfc 

* 


CAUSE; EITHER 

DATA 

LINE OPEN OR BAD MEMORY CHIP. 


LNJ 

$B6 « <PRRDB1 


PRINT " * REPLACE DB 1 *" 


B 

<DPTER5 


PRINT STATUS 


* ERROR ANALYSIS 

* 

DPTERR STR $R4#<TMP2 

CL = S>R4 

IQ s$R4 $<INSTAT 

CMR $R4#<M0DB1T 

BNE >PPT11 

LOR $R4#<TMP2 

* 

CMR 3>R7 isZ * 0800 * 

BE >DPTEK3 

CMZ <RAM1FL 

BE >0PrtR4 

CMZ <DPT EF1 

BNE >0PTLR2 


WERE WE TESTINo RAM l? 

BRANCH IF YES 

NO - IS RAM 1<PRESENT? 

BRANCH IF NOT 

YES - ERROR FROM lSj RAM TEST? 
BRANCH IF YES 


* BOTH RAMS PRESENT 

# 

DPTER1 CALL ZVSER.DPTERl#MDPT2 ** ERROR "DPT2" ** REPLACE DB 2 


CAUSE; EITHER OAT A LINE OPEN OH BAP MEMORY CHIP# 


SB6 # <PKRPB2 
PPTEK3 


PRINT ” * REPLACE PB 2 * M 

PRINT STATUS 


* BOTH RAMS PRESENT 

* 

PPTER2 CALL ZVSEK♦DPTER2»MDPT3 ** ERROR "DPT3" ** MAY BE WCS MB 


* SEE COMMENTS AT BEGINNING OF THIS TEST# IF NOT MOTHER BOARD FAULT# 

* THEN IT *S A DATA LINE SHORT ON ONE OF THE DAUGHTER BOARDS* 


DPTER3 CMZ 
BE 
LDV 
STR 
B 


$B6 #<PRMAY 
>DPTEK3 

<RAM2FL 
>DPTtR4 
$R6 * s 1 
$R6 # <DPTEF1 
<DPT8 


PRINT " * MAY BE WC5 MB *" 

PRINT STATUS 

IS RAM 2 PRESENT? 
branch IF NOT 

£!t flag 
GO TEST 2 ND RAM 


* JUST 1 RAM PRESENT 


W 
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001901 


001902 

001903 

001904 

001901? 

001906 

00190/ 

00190b 


001909 

001910 


001911 


001912 
001913 
0 0 1 9 14 
001913 
001916 
001917 
001918 
001919 
001920 
001921 
001922 
001923 
001924 
001923 
001926 
001927 
00192b 
001929 
001930 
001931 
001932 
001933 
001934 
001933 
001936 
001937 
00193b 
001939 
00194U 
001941 
001944 
001943 
001944 
001943 
001946 
001947 
00194b 
001949 
001950 
001951 

001952 

001953 

001954 

001953 

001956 

001957 

00195b 

001959 

001960 

001961 

001962 

001963 

001964 

001965 

001966 

001967 

00196b 

001969 

001970 

001971 

001972 

001973 

001974 

001973 

001976 

001977 

00197b 

001979 

001980 

001981 

001982 

001983 

001984 

001983 

001986 

001987 

001988 

001989 

001990 

001991 

001992 

001993 


07 AC 
0 /At 
0760 
0761 
07b2 


0/b3 
0 7b5 
0767 
0 /bb 
0 7 69 

0 766 
0760 
076F 
07CU 

07C1 
0 7 C 3 
0/C5 
0 K6 
07C7 


FBCO 0003 
0380 0000 
OF 80 
07 AC 
1406 


FBCO 0003 
0380 0000 
0F80 
1341 

6380 120C 

FbCO 0003 
0380 0000 
OF 80 
134F 

F6C0 0003 
0380 0000 
OP 80 
1369 
0F8 3 


DPTER4 CALL 4VSEK*0PTER4.MDPT4 ** ERROR "DPT 4 " ** 


E1THEK Mb OR D6 


07C8 E380 120C 


Q7CA 

07Cd 


1C02 

9F00 1489 


* SEE COMMENTS AT BEGINN1NG OF THIS TEST. IP NuT MOTHER 60AR0 FAULT. 

* THEN IT * S A FAULT ON THt DAUGHTER BOARO CAUSEo EITHER BY DATA LINE 

* SHORT/OPEN OR t>AD MEMORY CHIP. 

* NOTE; IP tRROK RESTRICTED TO ONE BIT OF ONE ZONE IN MAT ERRORS 

* FOLLOWING. MOST LIKELY BAD MEMOHY CHIP ON OB. 


07FE F800 1497 
0800 E800 1487 
0802 EFOO 1488 


CALL 4V$T.MSG40 


LNJ SB6,<PRSTS 
CALL 4VSTC.MSG4E 


CALL 4 VSTC *M5G4F 

6 >MAT 

* PRINT STATUS 

* 

S66.<PKSTS 


PRINT 


* EITHER WCS Mb OK OB *" 


PRINT SI AlUS 
PRINT NUTE ABOVE. 


PRINT RES I OF imOTE ABOVE. 


GO TO NtXI TEST 


PRINT STATUS 


0PTER3 LNJ 

* 

* 

# 

* 

********************* 

* * 

* MEMORY ARRAY TEST * 

* * 

********************* 

* 

* THIS TEST (’'MAT") TAKES ABOUT 3 SECS. 

* TEST PATTERNS HERE TO PIC< UP ANY INTERNAL CHIP PROBLEMS. 

* 

* ESTABLISH "TMP3" 

MAT LOV $R1»=2 00 TEST TWICE. SWITCH PATTERNS 

STR SR1.<TMP3 2ND TIME. 

* 

* clear memory 

* (1ST ESTABLISH IP IK OK 2< PRESENT - ESTABLISH «TMPl») 

* 


0 7 CD 

9800 

1495 


LOR 

$R1. 4 RAMIPL 




07CF 

9 AGO 

1496 


ADD 

SR 1.<RAM2FL 




0701 

1 BOB 



BEVN 

SRI»>MAT2 




0702 

9870 

0400 


LOR 

SR 1.-1024 

IK PRESENT 



0704 

9F00 

1487 


STR 

$R1»<T MP1 




0706 

9870 

FOOO 


LOR 

SR 1 . = *"4096 




0708 

OP 87 



6 

>MAT 3 




0709 

9870 

0800 

MAT 2 

LOR 

SRI.=2048 

2K PRESENT 



0 70b 

9POO 

1487 


STR 

SRI*<TMPi 




0700 

9870 

EOOO 


LOR 

SRI*=-8192 




07 Dp 

8000 

1497 

MAT 3 

10 

<RAMAOR.<OUTADR 

OUTPUT APRS 

OF 1ST 

LOC 

07E1 

0000 

14A2 







07E3 

8752 



CL 

= $R2 




07E4 

6800 

14A3 


LOR 

SR3 *<OOTOAT 




07E6 

8052 


MAT4 

10 

=$R2.5$R3 

OUTPUT OAIA 

(-0) 


07E7 

0053 








07Eb 

17FE 



BINC 

SR 1 * >MAT4 

00 4K OR «K 

T ImES 


07E9 

8054 



10 

= $R4.<INSTAT 




07 EA 

0000 

14A6 







07EC 

0800 

1480 


LOR 

SR5.cMQObIT 




0 7 EE 

C955 



CMR 

SR4.=SR5 




07EF 

0903 



bt 

>MAT4B 




0 7 F 0 

E380 

1165 


LNJ 

SB6.<STERR 

** ERROR »*: 

STATUS" 

** 


** rlplace wcs mb 


07F 2 

9800 

14A2 

MAT46 

LOR 

07F4 

A800 

14A3 


LOR 

0 7 F 6 

6800 

14A5 


LOR 

U7Fb 

C870 

5555 


LOR 

07FA 

0870 

AAAA 

* 

LOR 

07 PC 

9680 

1488 

* 

LAB 


TIMt 5 AAAA 
TIMt = 5533 


* 

* OEPINt REGISTER USAGE 

* 

$R1» <GUT AOK 
SR2 * <OOTOAT 
$R3.<1NOAT 

$R4,=4*5555* 2N0 

$R5. = 4»AAAA * 2ND _ 

SR6 USEO FOR INPUT ANO TEMPORARY STORE 
SR7 DEFINED NEXT 

$81*<TMP2 AORS OF COUNTER (IK OR 2K) 

* 

***** 

* COMES HERE FOR 2N0 TIME THRU "MAT” 

* 

***** 

* 

* SETUP FOR NEXT TEST 
MAT4A LDR 




APRS OF 1ST RAM LOC 
INITIALIZE COUNTER (IK OR 2K) 


»R7.<RAMA0R 
SR6.<TMPi 
$R6.<TMP2 

* 

***** 

* COMES HERE IK OR 2K TIMES (DEPENDING ON NO. RAMS). 

* WRITE AND VERIFY EVERY LOCATION. STARTING AT 1ST RAM LOC.. 

* 

***** 

* 




TITLE CPFS4* • RE V A» 


PAGE. 24 


001994 

001995 

001996 

001997 

001996 

001999 

002000 

002001 

002002 

002003 

002004 

002005 

002006 

002007 

002006 

002009 

002010 

002011 

002012 

002013 

00201 * 

002015 

002016 

002017 

002016 

002019 

002020 

002021 

002022 

002023 

002024 

002025 

002026 

002027 

002026 

002029 

002030 

002031 

002032 

002033 

002034 

002035 

002036 

002037 

002036 

002039 

002040 

002041 

002042 

002043 

002044 

002045 

002046 

002047 

002046 

002049 

002050 

002051 

002052 

002053 

002054 

002055 

002056 

002O57 

002056 

002059 

002060 

002061 

002062 

002063 

002064 

002065 

002066 

002067 

002066 

002069 

002070 

002071 

002072 

002073 

002074 

002075 

002076 

002077 

002076 

002079 

002080 

002081 

002082 

002083 


0604 

8057 


0805 

0051 


0806 

8054 


0807 

0052 


0808 

8057 


0809 

0051 


060A 

8056 


080b 

0053 


080C 

C956 


080D 

0905 


Q80E 

2 CO 1 


060F 

3854 


0810 

E380 

0970 

0612 

6054 


0813 

0052 


0614 

8057 


0615 

0051 


0616 

8056 


0817 

0053 


0816 

8056 


0819 

0053 


06 1A 

C956 


0810 

0905 


081C 

2C02 


0810 

3654 


081 E 

E380 

0970 

0820 

6054 


0821 

0052 


0822 

8057 


0623 

0051 


0824 

8056 


0625 

0053 


0826 

6056 


0827 

0053 


0828 

8056 


0629 

0053 


082 A 

C956 


082b 

0905 


082C 

2C03 


0820 

B854 


082E 

E380 

0970 

0630 

8054 


0631 

0052 


0632 

6057 


0633 

0051 


0834 

8056 


0835 

0053 


0836 

8056 


083 7 

0053 


0638 

6056 


0639 

0053 


083 A 

8056 


083b 

0053 


063C 

C956 


0630 

0905 


063b 

2C04 


06 3 F 

3854 


0840 

E380 

0970 

0842 

8AD7 


0843 

8881 


0844 

8961 


0845 

0981 

FFBE 

0847 

F800 

1497 

0649 

E800 

1467 

064b 

EFOO 

1488 


064 0 

8057 

064E 

0051 

084 F 

8056 

0650 

0053 

0651 

C956 

0852 

0905 

0653 

2C01 

0654 

3854 

0655 

E380 0970 

0657 

8057 

0658 

0051 

0659 

6055 

065A 

0052 


* ZONE 

1 



MATS 

10 

s$R7 * = $R1 

OUTPUT AOKS 


10 

=$R4*=$R2 

OUTPUT DAIA TO ZONE 1 


10 

s$R7*s$Rl 

OUTPUT APRS 


10 

=$R6*s$R3 

INPUT DATA FROM ZONE 1 

ft 

CMR 

BE 

$R4 * ;s$R6 
> MA T 6 


ft 

LOV 

LOR 

LNJ 

$R2 *~ l 
$R3*=$R4 
$66 * <MATERR 

PASS ZONE NO. (R2 RESTORE0) 

PASS DATA S.B.(R3 RESTORED) 

** ERROR "MAT" ** REPLACE DB 

* ZONE 

ft 

2 



MAT 6 

10 

=$R4*=$R2 

OUTPUT OAIA TO ZONE 2 


10 

=$R7*=$R1 

OUTPUT AORS 


10 

=$R6*=$R3 

INPUT DATA (DUMMY FOR ZONE BUMP) 


10 

= $R6*=:$R3 

INPUT DATA FROM ZONE 2 


CMR 

bE 

SR4 * s$R6 
>MAT 7 



LOV 

LOR 

LNJ 

$R2**2 
$R3 » = $K4 
$36 *<MATERR 

PASS ZONE NO. (R2 RESTORED) 

PASS DA 1 A S.B.(R3 RESTORED) 

** ERROR "MAT" ** REPLACE OB 

* ZONE 

3 



MAT 7 

10 

=$R4,s$R2 

OUTPUT OAIA TO ZONE 3 


10 

5$R7*=$R1 

OUTPUT AOKS 


10 

=$R6*=$R3 

INPUT DATA (DUMMY FOR ZONE bUMP) 


10 

=$R6*=$R3 

INPUT DATA (DUMMY FOR ZONE BUMP) 


10 

s$R6*=$R3 

INPUT DATA FROM ZONE 3 

ft 

CMR 

bE 

$R4 *s$R6 
> MAT-8 


ft 

LOV 

LOR 

LNJ 

$R2*=3 
$R3*=$R4 
$36 * <MATERR 

PASS ZONE NO. (R2 RESTORED) 

PASS DAI A S.B.(R3 RESTORED) 

** ERROR "MAT" ** REPLACE OB 

* ZONE 

ft 

4 



MAT 8 

10 

=$R4,=$R2 

OUTPUT OAIA TO ZONE 4 


10 

=$K7*=$R| 

OUTPUT ADKS 


10 

=$R6*=$R3 

INPUT DATA (DUMMY FOR ZONE BUMP) 


10 

=$R6*=$R3 

INPUT DATA (DUMMY FOR zONt BUMP) 


10 

=$R6*-$R3 

INPUT OAIA-(DUMMY FOR ZONt BUMP) 


10 

=$R6,=$R3 

INPUT DATA FROM ZONE 4 


CMR 

BE 

$R4*=$R6 
>MAT 9 



LOV 

LOR 

LNJ 

$R2*=4 
$R3 * s$R4 
$36 *<MATERR 

PASS ZONE NO. (R2 RESTORED) 

PASS OAIA S.B.(R3 RESTORED) 

** ERROR "MAT" ** REPLACE Ob 

* CHECK IF 

DONE HlRE 


MAT 9 

* 

INC 

OEC 

CMZ 

bNE 

= $R7 

$31 

$31 

MAT 5 

BUMP TO NEXT 64-BIT WORD ADKS 
DECREMENT COUNTER 

00 IK UK ZK TImES 

* - 

* SETUP FOR 

* 

NEXT TEST 



LOR 

LOR 

STR 

$R7 * <RAMADR 
$R6 *<TMPl 
$R6 * <TMP2 

KE-INIT1ALIZE*ADRS OF 1ST RAM LOC 
Rt-INITIAUZE COUNTER (IK OR 2K) 


* 

***** 

* 


* COMES HERE IK OK 2K TIMES (DEPENDING OlM NU. KAmS). 

* VERIFY LAST/WRIT E COMPLEMENT/VERIFY* EVERY LOCATION, STARTING AT 

* RAM LQC.• 

* 

***** 

* 


* ZONE 

ft 

1 



MAT 10 

10 

= $R 7 * ~$K I 

OUTPUT AOKS 


10 

=$R6*s$R3 

INPUT DATA FROM ZONE 1 

ft 

CMR 

BE 

$R4 * s$R6 
>MAT11 


ft 

LOV 

LOR 

LNJ 

$R2 * s1 
$R3.=$R4 
$06 * <MATERR 

PASS ZONE NO* (R2 RESTORED) 

PASS OAIA S.B.(R3 RESTORED) 

** ERROR "MAT" ** REPLACt DB 

MAf 11 

10 

=$R7,=$R1 

OUTPUT AOKS 


1U 

=$R5,=$R2 

OUTPUT DAI A TO ZONE l 


IN R3 


IN K3 


IN R3 


IN K3 


1ST 


IN K3 



TITLE 


CPFS4* «REV A* PACE 25 


002084 

065b 

8057 


10 

=SR7*s$Ri 

OOTPUT APRS 




085C 

0051 







002085 

0850 

8056 


10 

s$R 6 ♦ = $R3 

INPUT OATA FROM ZONE 1 




0856 

0053 






002 u 8 b 

065F 

0956 


OMR 

$R5 * s $R 6 




002087 

002088 

0860 

0905 

* 

BE 

>MAT12 




002089 

0661 

2 C 01 


LDV 

$R2*si 

PASS ZONE NO, (R2 RESTORED) 



002090 

0662 

6855 


LOR 

$R3*s$K5 

PASS DAI A S.b.(R3 RESTOR£0) 

** ERROR "MAT" ** REPLAOE D 6 



002091 

002092 

002093 

0663 

£380 0970 


LNJ 

$B 6 *<MA T ERR 

IN 

R3 



* ZONE 

2 





002094 



# 






002095 

0865 

0866 

0867 

8056 

0053 

C956 

MAT 12 

10 

= $R 6 t = $K3 

INPUT PATA FROM ZONE 2 



002096 


OMR 

$R4 » s$R 6 




002097 

002098 

0868 

0905 

# 

b£ 

>MAT13 




002099 

0669 

2 C 02 


LDV 

$R2 * = 2 

PASS ZONE NO. (R2 KeSTQREU) 



002100 

066A 

b854 


LOR 

$R3 * s$R4 

PASS PA)A S.6.(R3 Rest oR£o) 



coc 

coo 

rofvfv 

oco 

086b 

£360 0970 

£ 

LNJ 

$B 6 *<MATERR 

** ERROR "MAT'' ** REPLAOE DB 

IN 

K3 

0660 

8057 

MAT 13 

10 

ii 

X 

ii 

X 

OUTPUT APRS 




0666 

0051 






002104 

086F 
06 70 
0871 

8056 

0053 

8055 


10 

=$R6*5$R3 

INPUT PATA (POMMY FOR ZONE BUMP) 



002105 


10 

= 5»K5 * 5$R2 

OUTPUT PA 1A TO ZONE z 




0872 

0052 






002106 

0673 

8057 


10 

s$R7 « = SR 1 

OUTPUT APRS 



002107 

0874 

0051 






0675 
0676 
08 77 

8056 

0053 

8056 


10 

= $R6*=;$R3 

INPUT PATA (DUMMY FOR ZONt bUMP) 



002106 


10 

=$R6*=$K3 

INPUT DATA FROm ZONe 2 




0678 

0053 






002109 

0879 

0956 


OMR 

$R5*s$K6 




002110 

002111 

0<j7A 

0905 

# 

b£ 

>MAT14 




00211 c 

0o7b 

2C02 


LOV 

$R 2*=2 

PASS ZONE NO. (R2 RESTOREO) 



002113 

087C 

6855 


LOR 

$R3*=$R5 

PASS DAI A S.B. R3 RESTOR£U) 



002114 

002115 

002116 

0870 

£380 0970 

£ 

LNJ 

$B 6 * <MATERK 

** ERROR "MAT" ** REPLAOE DB 

IN 

R3 



* ZONE 

3 





002117 



* 






002116 

067F 

0660 

0681 

8056 

0053 

0956 

MAT 14 

10 

=$R6*=$R3 

INPUT DATA FROM ZONE 3 



002119 


OMR 

$R4*5$R6 




002120 

002121 

0882 

0905 

* 

BE 

>MAT15 




002122 

0683 

2C03 


LOV 

$R2*s3 

PASS ZONE NO. (R2 RESTORE) 



002123 

0684 

6654 


LOR 

$R3*=$R4 

PASS OAIA S.B.CR3 RESTORE) 



002124 

002125 

002126 

0685 

£360 0970 

£ 

LNJ 

$b 6 * <MATERR 

** ERROR "MAT" ** REPLAOE DB 

IN 

R3 

0867 

8057 

MAT 15 

10 

=$R7*=$Ki 

OUTPUT APRS 



002127 

0886 

0051 





0889 
088 A 
068b 
088C 
0880 

8056 

0053 

8056 

0053 

6055 


10 

s$R6*=$R3 

INPUT DATA (DUMMY FOR ZONE BUMP) 



002126 


10 

=$R6*=$R3 

INPUT DATA (DUMMY FOR ZONE BUMP) 



002129 


10 

=$R5*=SR2 

OUTPUT DAI A TO ZONE 3 




0866 

0052 






002130 

068F 

6057 


10 

=$R7,=$K1 

OUTPUT APRS 




0890 

0051 






002131 

0691 

0692 

0893 

6056 

0053 

8056 


10 

=$K6*=$R3 

INPUT DATA (DUMMY FOR ZONt BUMP) 



00213c 


10 

5$R6*s$R3 

INPUT DATA (DUMMY FOR ZONt BUMP) 



002133 

0894 

0053 






0695 

8056 


10 

=$R6*5$R3 

INPUT DATA FROM ZONE 3 



002134 

0896 

0053 






0897 

0956 


OMR 

$R5*=$R6 




002135 

002136 

0898 

0905 

* 

Bt 

>MAT16 




002137 

0899 

2003 


LOV 

$R2 * s 3 

PASS ZONE NO. (R2 RESTORE) 



002138 

069A 

6855 


LOR 

$R3*=$R5 

PASS PA IA S.B. (R3 RESTORtD) 



002139 

002140 

069b 

£360 0970 

* 

LNJ 

$B 6 *<MATtKR 

** ERROR "MAT" ** REPLAOt DB 

IN 

R3 

002141 



* ZONE 

4 





00214c 



* 






002143 

0690 

0896 

089F 

8056 

0053 

0956 

MAT 16 

10 

=$H6*=$R3 

INPUT DATA FROM ZONe 4 



002144 


OMR 

$R4♦s $R 6 




002145 

002146 

06A0 

0605 

* 

6L 

>MAT A 7 




002147 

U8H* 

2C04 


i-OV 

$R2*=4 

PASS ZONE NU. (K 2 RESToRtO) 



002146 

08A2 

6854 


LOR 

$R3 * = $R4 

PASS OAIA S.B.(R3 RESTORED) 



002149 

002150 

06A3 

£380 0970 

* 

LNJ 

$B 6 *<MATERk 

** ERROR "MAT" ** REPLACE DB 

IN 

R3 

002151 

08A5 

06A6 

06A7 

8057 

0051 

6056 

MAT 17 

10 

=$R7,5$Ri 

OUTPUT APRS 



002152 


10 

~$R 6 * = $R3 

INPUT DATA (DUMMY FOR ZONE BUMP) 




06A6 

0053 






002153 

06 Av 

6056 


10 

=$R6,=$R3 

INPUT DATA (DUMMY FOR ZONE BUMP) 




08 AA 

0053 






002154 

08 AB 

8056 


10 

-$R 6 t=$R3 

INPUT DATA (DUMMY FOR ZONt BUMP) 




06AC 

0053 






002155 

06AO 

6055 


10 

=$K5*5$R2 

OUTPUT DAI A TO ZONE 4 



002156 

06At 

0052 






08AF 

6057 


10 

=$K7,=$K1 

OUTPUT APRS 



002157 

0860 

0051 







08bl 

6056 


10 

s$R6*s$R3 

INPUT DATA (DUMMY FQR ZONE BUMP) 



002156 

0662 

0053 






0863 

8056 


10 

=$R6,s$R3 

INPUT DATA (DUMMY FOR ZONt BUMP) 




0864 

0053 






002159 

0665 

6056 


10 

=$R6*=$R3 

INPUT DATA (DUMMY FOR ZONt BUMP) 




0866 

0053 






002160 

0667 

6056 


10 

=$R6,=$R3 

INPUT DATA FROM ZONE 4 




0868 

0053 






002161 

0669 

D956 


OMR 

$R5*=$K6 




00216c 

066A 

0905 


BE 

>MAT18 




002163 

002164 

0666 

2C04 

# 

LOV 

$R2 *54 

PASS ZONE NO, (R2 RESTOREO) 



002165 

066C 

6655 


LOR 

$R3*=$R5 

PASS DATA S.B*(R3 RESTORED) 



002166 

002167 

0860 

t360 0970 

* 

LNJ 

$66*<MATERR 

** tRKUK "MAT" ** REPLACE DB 

IN 

R3 



TITLE 


CPFS4 » *REV A* 


PAGE 26 


002166 
002169 
002170 
002 i 7i 
002172 
002173 
002174 
002176 
00217b 
002177 
002176 
002179 
002180 
002181 
002182 
002183 
002184 
002186 
002186 
002187 
002186 
002189 
002190 
002191 
002192 


ObBF 

08C0 

08C1 

08C2 


08C4 

08C6 

08C7 

08C9 

08CA 

G8CC 

ObCfc 


6 AD7 
6881 
8961 

0981 FF8A 


E6QG 1496 
6984 

F870 ObFF 
OF 8 3 

F670 OFFF 
8800 1487 
EFOO 1488 


= $R7 
*B1 
361 
MAT 10 


3R6,<KAM2FL 
$R6 * >MAT19 
3R7,=2»06FF» 
>MAT 2 0 

*R7.=Z«GFFF* 
3R6 * <1MP1 
$R6»<IMP2 


BUMP TO NEXT 64-BIT WORD APRS 
DECREMENT COUNTER 

00 IK OK 2K TIMES 


IS RAM 2 PRESENT? 
BRANCH IF YES 
HIGHEST AURS IN 1ST 


RAM 


HIGHEST AURS la 2ND RAM 

RE-INITIALIZE COUNTER (IK OR 2K) 


002193 



* 



002194 



* ZONE 

4 


002196 



* 



002196 

06D0 

8057 

MAT21 

10 

= *R7 t^SKl 


08D1 

0051 




002197 

08D2 

8056 


10 

=SR6,*$R3 


08D3 

0053 




002196 

08D4 

8056 


10 

=SR6»=$R3 


0605 

0053 




002199 

08D6 

8066 


10 

=$K6*=SR3 


08D7 

0053 




002200 

08D8 

8056 


10 

=$R6*=$R3 


06D9 

0053 




002201 

08DA 

D956 


CMR 

SR5 *s$K6 

U 0 2 2 0 2 

08DB 

0905 


BE 

>MAT 22 

002203 



* 



002204 

06DC 

2C04 


LDV 

$R2 *-4 

002206 

06DD 

0855 


LDR 

SK3 * = $K5 

002206 

06DE 

E380 0970 


LNJ 

SB6 *<MATERR 

002207 



* 



002206 

ObEO 

8057 

MAT22 

10 

~3,R7,s*Rl 


06E1 

0051 




002209 

08E2 

8056 


10 

-3>R6 * = SbR3 


06E3 

0053 




002210 

06E4 

8056 


10 

s$R6 * =$R3 


06E5 

0053 




002211 

08E6 

8056 


10 

= $R6 i - S>K3 


06E7 

0053 




002212 

06Eb 

8054 


10 

=SR4*?$K2 


06E9 

0052 




002213 

ObEA 

8057 


10 

= $R7 * = 3>K 1 


06EB 

0051 




002214 

Q6EC 

8056 


10 

s$R6*=$K3 


06ED 

0053 




002216 

06EE 

6056 


10 

= iRb » = 3>R3 


08EF 

0053 




002216 

06F0 

8056 


10 

=4R6*=$R3 


06F 1 

0053 




002217 

06F2 

6056 


iu 

5$R6,=$R3 


06F3 

0053 




002216 

06F4 

C956 


CMR 

1R4*5$K6 

002219 

08F5 

0905 


BE 

>MAT 23 

002220 



* 



002221 

Q6F6 

2C04 


LDV 

SR2»=4 

002222 

Q8F7 

B854 


EDR 

5>R3»-SR4 

002223 

08F6 

E360 0970 


LNJ 

$B6 »<MATERR 

002224 



* 



002226 



* ZONE 

3 


00222b 



* 



002227 

08FA 

6057 

MAT 23 

10 

=SR7*=$R1 


06FB 

0051 




002226 

08FC 

6056 


10 

= 3>R6, = $R3 


08 FD 

0053 




002229 

U8Ft 

8056 


10 

= 3>Rb » » $R3 


08 FF 

0053 




002230 

0900 

8056 


10 

siR6i5$R3 


09-01 

005 3 




002231 

0902 

D956 


CMR 

$R5i = $R6 

002232 

0903 

0905 


BE 

>MAT 24 

002233 



* 



002234 

0904 

2C03 


LDV 

*R2.=3 

002236 

0905 

B855 


LDR 

$R3t=$R5 

002236 

0906 

E380 0970 


LNJ 

SB6♦<MATERR 

002237 



* 



002236 

0908 

8057 

MAT24 

10 

=$R7,=*R1 


0909 

0051 




002239 

090A 

8056 


10 

=$R6*s$R3 


090B 

0053 




002240 

090C 

8056 


10 

=SR6.=$K3 


090D 

0053 




002241 

090E 

8054 


10 

= $R4»=;$R2 


090F 

0052 




002242 

0910 

8057 


10 

=$R7*=SR1 


0911 

0051 




002243 

0912 

8056 


10 

=$R6is$R3 


0913 

0053 




002244 

0914 

6056 


10 

s$R6*=$R3 


0915 

0053 




002246 

0916 

8056 


10 

s$R6»=$R3 


0917 

0053 




002246 

0918 

C956 


CMR 

$R4*s$R6 

002247 

0919 

0905 


BE 

>MATZ5 

002246 



* 



002249 

091A 

2C03 


LDV 

*R2*53 

002250 

09 IB 

B854 


LDR 

SR3»=$R4 

002251 

091C 

E380 0970 


LNJ 

$B6 «<MATERR 

002252 



* 



002253 



* ZONE 

2 



* CHECK IF DONE HERE 

* 

MAT 18 INC 
DEC 
CMZ 
BNE 

* 

* 

* SETUP FOR NEXT TEST 

* 

LOR 
BNEz 
EDR 
b 

MAT 19 EDR 
MAT 20 LDR 
STR 

* 

***** 

* 

* COMES HERE IK OR 2K TIMES (DEPENDING ON NO* RAMS)* 

* VERIFY LAST/WRITE COMPLEMENT/VERIFY» EVERY LOCATION, STARTING AT 

* HIGHEST RAM LOC*. 

* 

***** 


OUTPUT APRS 

INPUT DATA (DUMMY FOR ZONE BUMP) 
INPUT DATA (DUMMY FqR ZONE BUMP) 
INPUT DATA (DUMMY FOR ZONE BUMP) 
INPUT DATA FROM ZONE 4 


PASS ZONE NO. (R2 RESTORED) 

pass Data s.a.(R3 restored) 

** ERROR "MAT” ** REPLACE DB IN R3 
OUTPUT APRS 

INPUT DATA (DUMMY F'OR ZONE BUMP) 

INPUT DATA (DUMMY FQR ZONE BUMP) 

INPUT DATA (DUMMY FOR ZONE BUMP) 

OUTPUT DATA TO ZONE 4 
OUTPUT ADKS 

INPUT DATA (DUMMY FOR ZONE BUMP) 

INPUT DATA (DUMMY FOR ZONE BUMP) 

INPUT DATA (DUMMY FQR zONt BUMP) 

INPUT DATA FROM ZONE 4 


PASS ZONE NO* (R2 RESTORED) 

PASS DA 1 A S.B*(R3 RESTORED) 

** ERROR "MAT" ** REPLACE Db IN K3 


OUTPUT ADKS 

INPUT DATA (DUMMY FOR ZONE BUMP) 
INPUT DATA (DUMMY FQR ZONE BUMP) 
INPUT DATA FROM ZONE 3 


PASS ZONE NO. (R2 RESTORED) 

PASS DATA S.B.TR3 RESTORED) 

** ERROR "MAT" ** REPLACE DB IN R3 

OUTPUT ADKS 

INPUT DATA (DUMMY FQR ZONE BUMP) 

INPUT DATA (DUMMY FOR ZONE BUMP) 

OUTPUT DAI A TO ZONE 3 
OUTPUT APRS 

INPUT DATA (DUMMY. FOR ZONE BUMP) 

INPUT DATA (DUMMY FOR ZONE BUMP) 

INPUT DATA FROM ZONE 3 


PASS ZONE NO* (R2 RESTORED) 

PASS DAI A S.B.(R3 RESTORED) 

** ERROR "MAT" ** REPLACE DB IN K3 



/O' 






title 

CPFS4* * REV A* 
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002254 



* 




002255 

09 It 

8057 

MAT 2 5 

10 

= $R7 * = $R1 

OUTPUT ADRS 


09 1F 

0051 





002256 

0920 

8056 


10 

5$k6»=$k3 

INPUT DATA (DUMMY FOR ZONE bUMP) 


0921 

0053 




002257 

0922 

8056 


10 

=$R6*=$R3 

INPUT DATA FROM ZONE 2 


0923 

0053 




002258 

0924 

0956 


CMR 

SRb * = $R6 


002259 

002260 

0925 

0905 

* 

BE 

>MAT 26 


002261 

0926 

2C02 


LDV 

$R2*=2 

PASS ZONE NO* (R2 RESTORED) 

PASS DA 1A S.B.(R3 RESTORED) 

002262 

0927 

B855 


LOR 

$R3 * = 3>K5 

002263 

002264 

0928 

E380 0970 

# 

LNJ 

$B6♦<MATERK 

** ERROR w MAT" ** REPLACE DB 

002265 

092 A 

8057 

MAT 2 6 

10 

= $K7 * = $R1 

OUTPUT ADRS 


092B 

0051 





002266 

092C 

8056 


10 

=$R6*=$K3 

INPUT DATA (DUMMY FOR ZONE BUMP) 


092D 

0053 




002267 

092E 

8054 


10 

=$R4,=$R2 

OUTPUT DATA TO ZONE 2 


092 F 

0052 





002268 

0930 

8057 


10 

= SR 7 » = SR 1 

OUTPUT AQKS 


0931 

0051 





002269 

0932 

8056 


10 

=$R6*=$R3 

INPUT DATA (DUMMY FOR ZONE BUMP) 


0933 

0053 




002270 

0934 

8056 


10 

=$K6,=$R3 

INPUT DATA FROM ZONE 2 


0935 

0053 




002271 

0936 

C956 


CMR 

$R4*=$K6 


002272 

002273 

093/ 

0905 

# 

bt 

>MAT */ 


002*74 

0938 

2C02 


LDV 

SR2*=2 

PASS ZONE NO* (R2 RESTORED) 

PASS DA 1 A S.6.1R3 RESTORED) 

** ERROR "MAT* ** REPLACE DB 

002275 

09 39 

0854 


LDR 

$R3 1 s$K4 

002276 

002277 

093A 

E380 0970 

# 

LNJ 

SB6»cMATEKR 


002*78 



* ZONE 

1 



002279 



# 




002280 

093C 

8057 

MAT27 

10 

=$R7*=$R1 

OUTPUT ADRS 


0930 

0051 




002281 

093E 

8056 


10 

= $R6»s$R3 

INPUT DATA FROM ZONE 1 


093 F 

0053 




002282 

0940 

D956 


CMR 

$R5*=$R6 


002283 

002284 

0941 

0905 

# 

BE 

>MAT28 


002*85 

0942 

2C01 


LOV 

$R2 ♦=: 1 

PASS ZONE NO. (R2 RESTORED) 

002286 

0943 

b855 


LOR 

$R3 *s$R5 

PASS DAI A S.B.(R3 RESTORED) 

002287 

002288 

0944 

E380 0970 

* 

LNJ 

$B6 »<MATEKR 

** ERROR "MAT" ** REPLACE DB 

002289 

0946 

8057 

MAT28 

10 

=JK7*?SR1 

OUTPUT AQKS 


094 7 

0051 





002*90 

0948 

8054 


10 

= 3>R4, = $R2 

OUTPUT DA 1A TO ZONE 1 


0949 

0052 




002291 

094 A 

8057 


10 

=$R7,?SRl 

OUTPUT ADRS 


094 b 

0051 





002292 

094C 

8056 


10 

=$K6.=$K3 

INPUT DATA FROM ZONE 1 


094D 

0053 




002293 

094E 

C956 


CMR 

$K4,-$R6 


002294 

002295 

094F 

0905 

* 

BE 

>MAI29 


002296 

0950 

2CQ 1 


LOV 

$R2i=l 

PASS ZONE NO. (R2 RESTORED) 

002297 

0951 

6854 


LDK 

$R3*=$R4 

PASS DAI A S.6.(R3 RESTORED) 

002298 

0952 

E380 0970 


LNJ 

S.B6 »<MATERR 

** ERROR "MAT" ** REPLACE DB 


002*99 
002300 
00230i 
002302 
002303 
00230* 
002305 
002306 
002307 
00230b 
002309 
002310 
002311 
002312 
002313 
002314 
002315 
002316 
002317 

00231b 
092 3 T9 
002320 
002321 
002322 
002323 
002324 
002325 
002326 
002327 
00232b 
002329 
002330 
002331 
002332 
002333 
002334 
002335 
002336 

002337 

00233b 

002339 

002340 

002341 

002342 

002343 

002344 

002345 

002346 

002347 

00234b 

002349 


0970 

0972 

0973 

0975 

0977 

097b 

09 7 A 
097C 
0976 
09b0 
0982 
0984 
0985 


CF40 007C 
8054 

0000 14A6 
C900 148D 
09F3 

C840 0074 


EFCQ 

6F40 

88C0 

88C0 

6800 

3683 

88C0 


0015 

0070 

0011 

000F 

0000 

OOOA 


# 

* CHECK IF DONE HERE 

* 


0954 

88D7 


MAT29 

DEC 

= $R7 

0955 

8881 



DEC 

$B 1 

0956 

8981 



CMZ 

SBi 

09 5 7 

0981 

FF78 

* 

BNE 

MAT21 




* 

* StT 

UP FOR 

2ND 1I ME THRl 

0959 

C870 

AAAA 


LOR 

$R4 * =Z * AAAA• 

0956 

D870 

5555 


LDR 

$R5*=Z*5555» 

095D 

8880 

1489 


DEC 

<TMP3 

095F 

8980 

1489 


CMZ 

<TMP3 

0961 

0980 

07FE 

* 

BNE 

<MAT4A 

0983 

8054 


* 

10 

s$R4♦<1NST AT 

0964 

0000 

14A6 




0966 

C900 

148D 


CMR 

$R4*<MQDB1T 

0968 

090 T 

0085 


bE 

MOOCk 

096A 

D800 

148D 

MAT30 

LDR 

SR5 * <M0DbIT 

096C 

E380 

11B5 


LNU 

$66 * <51 ERR 

096E 

0F8 1 

00 7 F 


B 

MODCK 


"MAT " 


DECREMENT TO NtXT 64-BIT WORD AUKS 
DtCREMtNT COUNTER 

00 IK OK 2K TIMES 


SWITCH UAIA PATTERNS 


* 

* 

* ERROR "MAT'’ 

# 

* CALLING StQUENCt; 

* LNJ $B6*<MATtKK 

* R6=DATA IS 

* R3=0ATA SB (RESTORED 

* K7=L0C 

* K2=20Nt (RESTORED TO 

* 

$R4*MATER6 
• $R4«<1NSTAT 


MATERK str 
10 

CMR 
BNE 
LDR 

STB 
STR 
DEC 
DEC 
LDR 
BODD 
DEC 


$R4,<M0DBIT 
>MA T3Q 
$R4*MATERB 

SB6»MATER4 

$R3 »MAIEKB 

MATEK4+$AF-i 

MATEK4*$AF-1 

$R3 * <ZV$AF 

$R3*>MATER1 

MATEK4*$AF-1 


IF Q#K* * GO TO NEXT TEST. 

STATUS SB 

** ERROR "STATUS" ** REPLACE WCS MB 
GO TO NEXT TEST 


TO "<INDAT" BtFORE RETURN) 
•*<OUTDAT” BEFORE RETuRN) 


RESTORE R4 

ADJUST REPORTING ADRS 
ZVSAFsi IF SAF 

DtCREMENf AGAIN IF LAF UV$AF«2) 


0987 F970 OCOO 


MATER 1 CMR $R7.*Z»OCOO• 



TITLE 

CPFS4i 

> * REV A• 
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002350 

0989 

0283 




BGE 

>MATER2 




002351 

098A 

3001 




LDV 

$R3 *«I 

OB 1 IN ERROR (FOR 

NO 

CONSOLE) 

00235<i 

09813 

0F62 




B 

>MAT ER3 

002353 

002354 

002355 

098C 

3002 



MATER2 

LDV 

SR3*=2 

OB 2 IN ERROR (FOR 

NO 

CONSOLE) 

0980 

0380 

0000 

X 

MATER3 

LNJ 

S65.<ZVSEK 

ERROR ’‘MAI” 



002356 

09 8 F 

0F83 




b 

>HATLR5 

RETURN FROM ZVsER 



002357 

0990 

0000 



MATER4 

RESV 

sAF»0 

REPORTING APRS 



002356 

002359 

0991 

1410 



* 

PC 

<MMAT 

"MAT " 



002360 

0992 

3B08 



MATER5 

BEVN 

SR3 *>MATER6 




002361 

0993 

F600 

0003 



CALL 

2 VST t MSG4A 

PRINT ” * REPLACE 

DB 

I *" 


0995 

0380 

0000 

X 








0997 

0F80 










0998 

1322 









002362 

0999 

OF 87 




B 

>MAT tR7 




002363 

099A 

FBOO 

0003 


MATER6 

CALL 

ZVST *MSG4B 

PRINT " * REPLACE 

DB 

2 *" 


099C 

0360 

0000 

X 








099E 

0F80 










099 F 

1320 









002364 





* 






002365 

09 AO 

FBOO 

0003 


MATER7 

CALL 

ZV$TC*MSG19 

PRINT "PATA = ” 




09A2 

0380 

0000 

X 








09A4 

0F80 










09A3 

1453 









002366 

09At> 

EF40 

0045 



STR 

SR6 * HAT ERA 




002367 

09A8 

FBOO 

0003 



CALL 

ZVSTNZ *MATERA 

PRINT PATA REAw 




09AA 

0380 

0000 

X 








09 AC 

OF 80 










09A0 

09E0 









002366 

002369 

09AE 

FBOO 

0003 


* 

CALL 

ZVST * MSG7 

PRINT ”* SB" 




09130 

0380 

0000 

X 








0962 

OP 80 










0963 

1415 









00237b 

0964 

FBOO 

0003 



CALL 

ZVSTHZ *MATERb 

PRINT PATA SB 




0966 

0380 

0000 

X 








09d6 

0F80 










0969 

09EO 









002371 

002372 

096m 

FBOO 

0003 


* 

CALL 

ZV$T*MSG21 

PRINT "♦ LOC” 




09BC 

0380 

0000 

X 








096E 

0 F 8 0 










096F 

1457 









002373 

09C0 

FF 40 

0026 



STR 

$R7 »MATERA 




002374 

09C2 

FBOO 

0003 



CALL 

2V$TH2»MATERA 

PRINT LOC IN ERROR 




09C4 

0380 

0000 

X 








09C6 

0F80 










09C7 

09E0 









002375 

002376 

G9Co 

FBOO 

0003 


* 

CALL 

ZV$T*MSG22 

PRINT "♦ ZONE” 




09CA 

0380 

0000 

X 








09CC 

OF 80 










09CO 

1456 









002 37 l 

090E 

A F 4 0 

001D 



STR 

SK2 »MATERA 




002376 

0900 

FBOO 

0003 



CALL 

ZVSTP»MATERA 

PRINT ZONE IN tRROK 




09 02 

0380 

0000 

X 








0904 

0F80 










0905 

09EC 









002379 

00238U 

0906 

0907 

8052 

0000 

14A6 


* 

10 

= SK2 »<INSTAT 




002381 




CALL 

ZV$T*MSG23 

PRINT ”* STATUS =” 




0909 

FBOO 

0003 









090b 

0380 

0000 

X 








0900 

0F8O 










09DE 

145F 









002382 

090F 

AF40 

OOOC 



STR 

SR2*MATERA 




002383 

09E1 

FBOO 

0003 



CALL 

2V$THZ»MATERA 

PRINT SIAIUS Rt,AP 




09E3 

0380 

0000 

X 








-09E5 

Of 80 










09E6 

09E0 









002384 

002385 

09 E 7 

A800 

14A3 


* 

LOR 

SR2*<OUTOAT 

RESTORE R2 



002386 

09E9 

6800 

14A5 



LOR 

SR3 * <INOAT 

RESTORE R3 



002387 

002386 

09E6 

8386 



* 

JMP 

SB6 

RETURN 



002389 

09EC 

0000 



MATERA 

KEbV 

1*0 

TEMP SAVE 



002390 

09E0 

0000 



MATERB 

RESV 

1*0 

TEMP SAVE 



002391 





# 





002392 





* 






002393 





* 






002394 





* 






002395 





* 






002396 

09EE 

9870 

0100 


MODCK. 

LOR 

SRI *=Z»0100» 




002397 

09F0 

A800 

148D 



LOR 

SR2 * <MQDBIT 




002398 

09F2 

A451 




OK 

SR2 * = $R1 




002399 

09F3 

AF40 

0A9A 



SIR 

SR2 * STABiT 




002400 

09F5 

9870 

0140 



LOR 

sRl*~Z«0140* 




002401 

0 9 F 7 

9900 

148E 



CMR 

SRI*<STABIT 

TRANSPARENT MOuE? 



002402 

002403 

09F9 

0901 

05DF 


* 

BE 

TIT10 

YES 



002404 





* 






002405 





# 






002406 





* 






002407 





* SEQUENTIAL MODE TEST 




002406 





*********************** 




002409 





# 






002410 





* 






002411 

002412 

09F6 

OF 7F 



* 

NOP 

>$-l 




002413 





# 











T I TUt 


CPFS4♦ »REV A• 
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0Q2414 





* 




0024 i S 





* TEST 

' 1 



002416 





# 




002417 





* 




002416 

09K 

6740 

0AA3 



CL 

TSTCNT 

CLEAR TEST COUNTER# IT SHOWS WITCH 

002419 





* 



TEST THAT FAILS 

002420 





* 




002421 





# 




002422 





* 




002423 





* SPLASH REGISTER AND ADDRESS 

COUNTER TEST 

002424 





******************************************* 

002426 





* 




002426 





* 




002427 

09FE 

69C0 

0A90 


SKT10 

CM2 

PASCNT + $Ap-T 

1ST PASS? 

002426 

OAOO 

0990 




bNE 

>5RT15 

NO 

002429 

OAO 1 

1380 

1225 



LNJ 

Sb6,<PRCRLF 

YES. PRINT C.R./L.F. 

002430 






CALL 

2V$TC*MSGSP 

PRINT MESSAGE 


0A03 

PBCO 

0003 







0A05 

0360 

0000 

X 






OAO 7 

0F60 








0A08 

138C 







002431 






CALL 

4V$ TC *MSG SO 



0A09 

FbCO 

0003 







OAOb 

0360 

0000 

X . 






OAOO 

OP 80 








OAOE 

1 3AC 







00243*: 

OAOF 

0004 




RTCN 



002433 





* 




002434 

OA10 

8AC0 

0A8F 


SRT15 

INC 

TSTCNT 

BUMP TEST COUNTER 

002436 





* PRELOAD toCS tollH MICROINSTRUCTION CODES 

002436 





* FIRST CHECK. NO. OF RAMS IN 

wCS 

002437 





* 




002436 

OA12 

9870 

0800 



LDR 

$R1* = 4 * 0800 * 

SPLASH ADDR FOR RAMl 

002439 

OA 14 

9P40 

0A86 



STR 

SRI*SPHADk 


002440 

OA 16 

9870 

0080 



LDR 

$k1 * = 4 * 0060 * 


002441 

OA 16 

9F40 

0A83 



STR 

$R 1 * SPHCOD 

SPLASH MICROINSTRUCTION CODE FOR RAMI 

002442 

0 A1A 

C870 

0093 


SRT20 

LDR 

SR4 * =4 •0093 * 

microinstructions for unconditional 

002443 

OA 1C 

0870 

C700 



LDR 

SR5t=Z»C700» 

jump TO 16 LOCATIONS AHEAD OF CURRENT 

002444 

GA1E 

6.87 0 

2000 



LDR 

$R6*=Z»2000» 

LOCATION. THI o MiCROlNSTKUCUON WILL 

002446 

0 A20 

P 870 

600F 



LDR 

SR7 * »4•800F• 

dE GENERAlED lo TIMES 

002446 





* 




002447 

0A22 

8000 

149B 



10 

<SPHADR,<OUrADR 

wCS FIRST ENTky LOCATION 


0A24 

0000 

14A2 






002446 

0A26 

7601 



SRT30 

ADV 

SR7»s 1 


002449 

0A2 7 

E3C0 

01E3 



LNJ 

SB6»CSB20 

LOAD wcs 

002450 

0A29 

P 970 

801F 



CMR 

SR7»=Z * 801P • 

all 16 eniry locations loaded? 

002451 

0A2b 

09P b 




bNE 

>SRT30 

no 

002452 





* 




002453 

0A2C 

1CF1 




LDV 

SRI*=-15 

COUNTER 

002454 





* 




002456 

0A2D 

ABCO 

oico 



LAB 

SB2*hC23 

FETCH MICROCODE INC Rl. AND 

002456 

0A2P 

63C0 

01D2 



LNJ 

SB6,CSB10 

FILL IN 16 CONSECUTIVE LOCATIONS 

002457 

0A31 

E3CQ 

01D9 


SR T 40 

LNJ 

SB6 * CSB2Q 

WRITE WCS 

002456 

0A33 

17F£ 




BINC 

SRI »>SRT40 

BRANCH IF ALL 15 LOCATIONS NOT LOADED 

002459 





* 




002460 

0A34 

69C0 

0A61 



CMZ 

RAM2PL 

RAM2 PRESENT? 

002461 

0A36 

0981 

0029 



BNE 

SR T 90 

YES 

002462 

0 A38 

P 870 

63FC 



LDR 

SR7*=Z»83FC* 

LOAD LAST 16TH MICROWORD FOR INC. Rl 

002463 

0 A3 A 

E3C0 

0 IDO 



LNJ 

Sb6* CSB20 


002464 

0 A3C 

F870 

OBFC 



LDR 

SR7*=Z»0BPC» 


002465 

0A3fc 

ABCO 

0A69 



lab 

SB2 * BUP P1 

STORES RETURN KOUTlNE FOR RAMI ONLY 

002466 

0A40 

9670 

OBFF 



LDR 

SRI* =Z * ObFF * 


002467 

Ga4<: 

9P40 

0A5B 



STR 

SR 1* WCSIZE 

wCS LASI LOCATION 

002466 

0A44 

8057 



SRT45 

10 

=SR7* <OUTADK 

aCS ADDR FOR RcTORN routine 


0A45 

0000 

14A2 






002469 

0A47 

6CP0 




LDV 

SR6*=-16 

TO COUNI 16 LOCATIONS IN RETURN ROUTINE 

002470 

0A4a 

8072 



SRT50 

10 

+ SB2 * <OUT DAT 



0A49 

0000 

14A3 






002471 

0A4b 

67FB 




bINC 

$R6 *>SRT5G 

ALL LOCATIONS LOADED? 

002^72 

0A4C 

OP 83 




b 

>SRT55 


002473 

0 A40 

E3C0 

Q7E9 



LNJ 

SB6 »RDBK10 

JUMP TO SUBROUTINE TO READ WCS 

002474 





* 



DAC< TO A BUPPcR FOR DEBUG PURPOSE 

002475 





* 




002476 





* STARTS SPLASH TEST HERE 


002477 





* 




002476 

0A4P 

2C10 



SRT55 

LDV 

SR2 * = 16 

INITIALIZE COUNTER TO 16 

002479 

OA50 

B840 

0A4B 



LoR 

SR3,SPHCOD 

SPLASH MICROCODE 

002480 

OA52 

BP 40 

0004 


SRT60 

STR 

SR3 * SR T 70 


002481 





* 




002482 





* 




002483 

0 A54 

13C0 

0042 



LNJ 

$b6 *SRT210 

ENABLE WCS AND STATUS CHECK 

002484 





* 




002485 





* 




002486 

0 A5 6 

6751 




CL 

= $R 1 


002487 





* 




002486 

0A57 

0000 



SRT70 

RESV 

1*0 

SPLASH. ERROR IF O.k. NO 1 PRINTED 

002489 





* 



IN 6 SEC. 

002490 





* 




002491 

0 A68 

9952 




CMR 

SR 1*5$R2 

RETURN FROM WCS FIRMWARE. SPLASH ERROR? 

002492 

0A59 

0981 

002D 



BNE 

SRT200 

ERROR. BRANCH TO REPORT ERROR 

002493 

QA5b 

8802 



SRT80 

DEC 

= SR2 

COUNT 1 

002494 

0A5C 

6AD3 




INC 

= SR3 

bUMP SPLASH MICROCODE (R3) ^Ok NEXT SPLASH 

002495 

0A50 

2000 




CMV 

SR2 * = 0 

ALL 16 SPLASH TESTED? 

002496 

CASE 

0374 




bo 

>SRT60 

NO. CONTINUE FOR NEXT SPLASH TEST 

002497 

UA6F 

0F8P 




B 

>sr noo 

YES. ALL 16 SPLASH TESTED 

002498 





* 




002499 





* 




002500 

0A60 

P 870 

8 7 F C 


SRT90 

LDR 

SR7,sZ»87PC» 

LOAD LAST 16TH MICRQWORD FOR INC. Rl 

002501 

0A62 

63C0 

01A8 



LNJ 

SB6*CSb20 


002502 

0A64 

P 670 

OFPC 



LDR 

SR7 * »Z•OF FC * 


002503 

0A66 

ABCO 

0A5 1 



LAB 

$82 «bUFF2 

STOKES KE1 URN ROUTINE WHEN RAM2 PRESENT 

002504 

0A68 

9870 

OFFP 



LDR 

SR1*=Z»0FPF» 

wCS LASI LOCATION 

002505 

0A6A 

9P40 

0A33 



STR 

SR 1 * kvCSIZE 


002506 

0A6C 

OP 81 

PFD7 



B 

SRT45 


002507 





* 




00250t> 





* 




002509 





* 




002510 





* 




002511 

0 A6E 

89C0 

0 A27 


SRT100 

CMZ 

RAM2PL 

RAM2 PRESENT? 

002512 

0A70 

0901 

0Q5E 



BE 

ACTIO 

NO. RAMI ONLY. DONE 

002513 

0A72 

0F81 

005C 



B 

ACTIO 


002514 





* 




002515 





* 






TITLE CPFS4* • REV A* 


PAGE 


30 


002516 
002 bl7 
002 bib 
002b19 
002 b 2 u 
002321 
00252*: 
002b23 
002524 


002526 
0 0 2 b 2 7 
00252b 
0Q2b29 
002530 


002b32 

002b33 

002b34 

002b3b 

002336 

002b37 

00233b 

002b39 

002b40 

002 b4i 
002542 

002 b43 
00254* 
002 b4b 


FBCG 0003 
D38G 0000 
0F80 
0A94 
146P 

FBCO 0003 
D38Q 0000 
OF bO 


OFb 1 FFC5 


SRTliO iO 


SRI »-2*0F00» 
SRUSPHADR 
4Rl«=Z*00C0* 
SRitSHHCOD 
-SR i 

SR2 * = -1 6 
<SPHaDR,<QUTADR 

= SRU<OUTPAT 


bINC $R2 *>SRTi10 
HLT 


5RT200 CALL 2 VSER,SR 1.MSGSR1 


CALL 2 V$T»MSG4 


* ENABLE WCS ANP STATUS CHECK 

* 

SRT 210 10 =2*0b00»,<0UTC3N 

STR $R 2 «TMP2 

10 =SR2 * <1NST AT 

CNR SR2 *<STAdlT 

bb SR 1220 

CALL 2V$Ek*STl»M5GSTl 


SPLASH APDR FyR R/s 

SPLASH MICROCOPE 

CLEAR KAMI 16 lNTRY 
LOCATIONS 


ERROR "SR 1 " 


PRINT " * REPLACE MB * m 


** ERROR ** 

SPLASH ERROR 

CONTINUt NEXT oPLASh TEST 


ENABLE WCS 


ERROR "STi" 


CALL 4 VST *MSG23 


PRINT »♦ STATUS = » 


002347 

00234b 


STR SR2*TMP3 
CALL 2VSTH2*IMP3 


PRINT SI AI US RlAP 


002 b49 
002330 
002551 


STR SRbtIMPI 
LPR SR5 * 1STCNT 
CALL 2VST % MSG24 


SAVE R3 

R3 SHOWS WHICH TEST THAT FAILS 
PRINT "♦ TEST NO. 



0AC2 

1465 






002552 






CALL 

2V$TH2«TSTCNT 


0AC3 

FbCO 

0003 






0AC5 

D380 

0000 

X 





0AC7 

QF80 







0AC8 

14A0 






002533 

0AC9 

0F7F 



STI 

NOP 

>S-1 

002554 





* 



002555 

GACA 

D84Q 

09BC 



LDR 

SR5UMP1 

002356 

QACC 

A840 

G 9 BB 


SRT220 

LDR 

SR2UMP2 

002357 





* 



00255b 





* 



002359 

OACL 

8386 




JMP 

SB6 

002360 





* 



002561 





* 



002362 





# 



002563 





* 



002364 





* 



002365 





* 



002366 





* TEST 2 


002567 





* 



00236b 





# 



002369 





* NOW 

START 

S ADDRESS COUNTEi 

002570 





* PRELOAD WCS WITH MICROCOPi 

002371 





* 



002572 





* 



002573 

OACF 

0 F 7 F 



ACTIO 

NUP 

>S-1 

002574 





* 



002575 





* 



002576 

OADO 

9870 

0800 



LDR 

$R 11 52 1 0800 1 . 

002577 

0AD2 

9F40 

09C8 



STR 

SR 1 ♦ SPHADR 

00257b 

0AD4 

9870 

0080 



LDR 

SRI*=2*0080* 

002379 

0AD6 

9F40 

09C5 



STR 

SR 1 * SPHCOD 

002580 





* 



002581 





* 



002582 





* 



002583 

GADb 

A840 

09C5 



LDR 

SR2 * WCSI2E 

002584 





* 



002585 

QADA 

2EFC 




ADV 

SR2 »5-4 

002586 





* 



002587 

OApB 

8AC0 

09C4 



INC 

T ST CNT 

00238b 

OADD 

8000 

149B 



IQ 

<SPHADRi<OUTADR 


OADF 

0000 

14A2 





002589 

0AE1 

9840 

09B9 



LDR 

SR 1 * SPHADR 

002590 

0AE3 

ABCO 

OiOA 



LAB 

$B2*MC23 

002591 

0AE5 

E3C0 

011 C 



LNU 

SB 6 ♦CSB10 

002592 

0AE7 

E3C0 

0123 


ACT20 

LNJ 

SB 6 *CSB20 

002593 

GAE9 

1E01 




ADV 

SR 1 ♦ 5 1 


PRINT TES1 NO. 


** error ** 

STATUS tRKOR UN R2) 
RESTORE Ri> 

RESTORE R 2 


SPLASH APPR FOR RAMI 
SPLASH MICROCOuE FOR RAMI 


LAST LUCA I ION In WCs (CALCULATEO 
IN SPLASH REGISTER TEST) 

LAST LOCATION FOR TESTING 

BUMP TEST COUNTER 

WCS FIRST ENTRY LOCATION 

SPLASH APPR. K1 s COUNTER 
FETCH MICROCODE FOR INC Rl. AND 
FILL THt RAM WITH INC Ri 
LOAD WCS 





TITLE 

CPFS4i 

. *RtV A* 




PACE 31 

002594 

OAEA 

9952 



CMK 

SR1* s$K2 

ALL LOCATIONS iN WCS LOADtD? 

002595 

OAEb 

03FC 



bLt 

>ACT 20 

NO 

^ 002596 

OAtC 

0F8 3 



b 

> ACT 30 


\ 002597 




* 




■ 002598 

OAED 

L3C0 

0749 


LIMJ 

Sb6,KDbKlO 

YES. JUMP TO SUBROUTINE TO READ WCS 

% ,,' 002599 




* 



BACK TO MtMOKY LOW FOR DEBUG PURPOSE 

' OOZbOO 




* 




OOZbOl 




* STARTS TEST HtKt 


002b02 




* 




OOZbOJ 

OAEF 

E3C0 

FFA7 

ACT30 

LNJ 

3b6,bKT2 10 

ENABLE WO AND STATUS CHECK 

002b04 




* 




002b05 




* 




OOZoOb 




* 




002b07 

OAF 1 

6840 

09 AA 


LDR 

4k3 ♦ SPHCUD 

SPLASH MICROCODE 

002608 

OAF 3 

6F40 

0005 


bTN 

SR3 *mC7 40 


002b09 

OAF 5 

9870 

0800 


LDR 

4R1,=2*0800* 

INITIALIZE COUNTER TO 800 

002bl0 

OAF 7 

0F8 1 

0001 


b 

A C T 4 0 


002611 




* 




002612 

OAF 9 

0000 


ACT 40 

REbV 

1*0 

SPLASH. ERROR IF "OK” NO 1 PRINTED 

002613 




* 



IN 5 SEC # 

002614 

OAFA 

A840 

09A3 


LDR 

Sk2**CSIZt 

RETURN FROM WCb FIRMWARE 

002615 

OAF 0 

2tF0 



AUV 

SK2*=-3 

K2 NOW SHOULD bE THt NO* OF COUNTS IN K1 

002bl 6 

OAFD 

9952 



CMK 

SR 1 * = $R2 

ERROR? 

002617 

OAFt 

0982 



bNE 

>ACT50 

YES. KEPURT EkROR 

oozbia 

OAFF 

OF 8F 



b 

> R A T 10 

oO TO NtXI TEST 

OOZb19 




* 




002620 




ACT50 

CALL 

ZV$EK*ACi*MSGAC1 

tRROR "AC1" 


ObOO 

F6C0 

0003 






ObOZ 

0380 

0000 X 






0b04 

OF 80 







0b05 

0600 







ObOb 

146F 






002621 





CALL 

2V$T *M5G4 

PRINT " * REPLACE MB * M 


0b07 

FBCO 

0003 






0b09 

0380 

0000 X 






ObOb 

OF 80 







OBOC 

1319 






00Z62Z 

ObOO 

0F7F 


AC 1 

NUP 

>4-1 

** tRROR ** 

002b23 




* 



ADDRESS COUNTEK ERROR 

0G2b24 




* 



GO TO NtXI TEST 

0G2b25 




* 




U0Zb2b 




* 




UOZbZY 




* 




002b2b 




* 




U0Zb29 




* 




00Zb3U 




* 




00Zo3i 




* 




00Zo3Z 




* TEST 3 



002633 




* 




0QZ634 




* 




002635 




* KETUKhi AbuKLbb REGISTER AND 

jump address register test 

00Zb3b 




********************************************************* 

00Zb37 




* 




002b38 




* 




002b39 




* 




^ 002b4U 

OBOE 

0F7F 


KAT10 

NOP 

>$-l 


1 002641 




* 




1 00Zb4Z 




* 




“ 00Zb43 

OBOF 

9840 

098t 


LDR 

SRI »wCSIZE 

last lucaiion in wcs 

UUZb44 

Obll 

1EFC 



ADV 

SRl,=-4 

location for subroutine 

002b45 

0612 

8ACG 

098D 


INC 

TbTCNT 

BUMP TE6T COUNIER 

0Q2b4b 




* 




002647 




* 




00Zb4b 

OblA 

C87Q 

i 1A8 


LDR 

SR4,=Z*11A8» 

microcode for subroutine uncr di*di; 

002b49 

061b 

0870 

C3QA 


LDR 

SR5,=Z»C30A« 

RtTUKN) 

002650 

Obl8 

E870 

2000 


LDR 

SR6 * =2 * 2000 * 


002b5l 

Ob 1A 

F870 

27FF 


LDR 

S R 7 , = Z * 2 7FF • 


002b5Z 




* 




002653 

OblC 

8051 



IQ 

s: $R 1 * <OUT ADR 

ADDR FOR SUBROUTINE 


Oblo 

0000 

14A2 





002b54 

OblF 

E3C0 

OOEB 


LNJ 

4B6*Cbb20 

LOAD SUBROUTINE MICROCODE TO WCS 

002655 




* 




002656 




* 




002657 

0B21 

F870 

8002 


LDR 

SR7 *-2 * 8002 1 

INITIAL VALUE TO CALCULATE SUBROUTINE 

002658 

Ob23 

F F 40 

0968 


bTR 

4R7 * STOR1 

CALL ADDR IN WlS 

002659 




* 




002660 

0B2 5 

C870 

0093 

RAT20 

LDR 

SR4,=2*0093* 

MICROCODE FOR UNCONDITIONAL JUMP TO 

002661 

0B27 

0870 

C700 


LDR 

SR5,=Z*C700* 

SUBROUT 1NL CALL 

002662 

0b29 

E870 

2000 


LDR 

SK6♦=2 * 2000• 


002663 




* 




002b64 

0B2b 

8000 

1496 


10 

<bPHADR * <OUTADR 

WCS FIR5T ENTRY LOCATION 


-0B2D 

QQOO 

L4V\2 





002665 

062 F 

8054 



10 

=4R4*<0UTDAT 



0630 

0000 

14A3 





002666 

0632 

8055 



10 

= SR5, <OUT DAT 



0633 

0000 

14A3 





002667 

0635 

8056 



10 

s$R6*<0UTDAT 



0636 

0000 

14A3 





00266b 




* 




002b69 

0638 

F840 

0953 


LDR 

4k7,STQKl 

CALCULATE THE LOCATION WHERE THE 

002670 

063A 

7E01 



ADV 

SR7 * s 1 

ONCONDI1IONAL JUMP IS 60JNG TO FOR 

002671 

063b 

FF40 

0950 


bTR 

$R7 tbTQRl 

SUBROUTINE CALL (8003 1 ST TIME, 8004 

002672 




* 



2ND TIME. 8005 3RD TIME.. 

002673 

0630 

8057 



10 

= $R7 * <OUTDAT 

LAST LOCATION FOR MICROCODE "GOTO" 


0B3E 

0000 

14A3 





002674 

0640 

FA70 

8800 


ADD 

4R7*=2»8800* 


002675 

0B42 

8057 



10 

s $K 7 * <OUT ADR 

ADDR FOR STOKING SUBROUTINE CALL 


0643 

0000 

14A2 





002676 




* 




002677 

0645 

C870 

0093 


LDR 

SR4 *=2 * 0093• 

MICROCODE FOR SUBROUTINE CALL 

002678 

0647 

D87Q 

C300 


LDR 

SR5,=Z«C300* 


002679 

0649 

E870 

2000 


LDR 

SR6 * = 2 1 2000• 


002680 




* 




002681 

0646 

89C0 

094A 


CM Z 

RAM2FL 

RAM2 PRESENT? 

002682 

0640 

0981 

002A 


BNE 

RAT 100 

YES 

002683 

064F 

F 870 

C3FB 


LDR 

SR7,=2*C3FB* 

NO. LA8T 16 BIT WORD MICROCODE FOR 

^. 002684 




* 



SUBROUTINE CALl 

f 002685 

0651 

E3C0 

0069 

RAT 40 

LNJ 

466 *Cb620 

LOAD MICROCODE FOR SUBROUTINE CALL 

I 002686 




* 




1 002687 

0653 

C870 

0093 


LDR 

$R4,=Z*0Q93* 

MICROCODE FOR UNCONDITIONAL JUMP TO 

002688 

0655 

D87Q 

C7QQ 


LDR 

SR5,=Z*C700* 

RETURN ROUTINE 

002689 

0657 

E87G 

2000 


LDR 

SR6,=Z*2000» 


002690 

0659 

89C0 

093C 


CM 2 

RAM2FL 

RAM2 PRESENT? 




TITLE 

CPF54 

• REV A* 




PAGE 32 



002691 

0B5fcJ 

0981 

0020 


BNE 

RATliO 

YES 



002692 

0850 

F870 

83FC 


LDk 

2>R7 * sZ * 83FC * 

NO. LAST 16 BIT MlrROWORO FOR 


002693 




* 



UNCONDI1IONAL JUMP TO RETURN 

ROUTINE 


002694 

GB5F 

8300 

OOAB 

KAT50 

LNJ 

SB6 *0SB20 

LOAD MICROCODE FOR UNCONDITIONAL JUMP 

4T~ 

002696 




* 



TO RETURN ROUTINE 


Ii 

002696 




* 





% W 

002697 




* STARTS TEST HERE 




00269b 




* 






002699 

0661 

9840 

093A 


LDR 

SRI»SPHCOD 

SPLASH MICROCODE 



002 700 

Ob63 

9F40 

0004 


STR 

$R1*KAT 60 




00270X 




* 






002702 




* 






002703 

0865 

E3C0 

FF31 


LNJ 

SB6 *SRT210 

ENABLE WO AND STATUS CHECK 



002704 




* 






002705 




* 






002706 

086 7 

8751 



CL 

n 

& 

X 




002707 




* 






002706 

0868 

0000 


RAT 60 

RESV 

1*0 

SPLASH. tkRQR IF O.k. NO 1 PRINTED 


002709 




* 



IN 5 SEC 



0027X0 

0869 

1001 



CMV 

SRI**! 

ERROR? 



0027li 

0B6A 

0981 

001B 


BNE 

RAT200 

YES. RtPUKT ERROR 



002712 

0860 

A840 

091F 


LDR 

3>R2*STQR1 

NO 



002 M3 

0B6E 

8900 

0927 


CM2 

RAM2FL 

RAM2 PRESENT? 



002714 

0b70 

0981 

OOOF 


BN E 

KAT120 

YES 



002715 

0872 

A970 

83F7 


OMR 

$R2*=Z'83F7* 

NO. ALL REGISTER BITS TESTED? 


002716 

0874 

0381 

FFBO 


BLE 

KAT20 

NO. TtbT NEXT BIT 



002717 

0876 

0F81 

00A1 


B 

0BT10 

YES. GO TO NEXT TEST 



002716 




* 






002719 




* 






002720 

0876 

F870 

C7FB 

RAT 100 

LDR 

*R7*=Z*C7FB» 

LAST 16 BIT MICROWORD FOR 



002721 

087A 

0F81 

FFD6 


B 

RAT40 

SUBROUTINE CALL 



002722 




* 






002723 

087C 

F870 

8 7 Ft 

RAT 110 

LDR 

$R7 * = Z * 8 7F0 * 

LAS! 16 BIT MIoROWORD FOR 



002724 

0878 

0F81 

FFEO 


b 

R A F 5 0 

UNCONDI1IONAL JUMP JO RETURN 

ROUTINE 


002725 




* 






002726 

0860 

A970 

87F7 

kAT120 

OMR 

$R2*5Z*87F7* 

ALL REGISIER BITS TESTED? 



002727 

0862 

0381 

FFA2 


BLE 

RAT20 

NO. TEi>T NEXT BIT 



002726 

0864 

0F61 

0093 


B 

OBTTO 

YES. GO TO NEAT TEST 



002729 




* 






002730 




* 






002731 




RAT200 

CALL 

ZV$EK iKAl »MSCjR A1 

ERROR **RAX ” 




0866 

FBCO 

0003 








0866 

0380 

0000 X 








0B6A 

0F8Q 









0868 

0893 









0860 

1471 








002732 





CALL 

ZV$T*MSG4 

PRINT " * REPcACE MB *" 




0860 

FBCO 

0003 








086F 

0360 

0000 X 








0891 

0F60 









0B92 

1319 








002733 

0893 

0F7F 


RA1 

NOP 

>$•1 

** ERROR ** 



002734 

0894 

OF B 1 

0083 


b 

0BT10 

GO TO NEXI TEST 



002735 




* 






002736 




* 






002737 




* 






00273b 




* MICROCODES FOR SEQUENTIAL MODE 

TESTS 



002739 




*************************************** 


% 

002740 




* 





V^" 

002741 




* 






002742 

0896 

0093 


MCI 

DC 

4*0093* 

SET ZERO 



002743 

0897 

OFOO 



DO 

4*OFOO* 

(FLOPS ZK1) 



002744 

0B96 

2500 



DO 

4* 2500* 




002745 

0899 

07FF 



DC 

4 • 0 7 F F • 




002746 




* 






002747 

0B9A 

0093 


MO 2 

DO 

Z 1 0093 * 

CLEAR ZtRO 



002746 

089b 

OFOO 



DO 

Z * OF 00 * 

(FLOPS ZKO) 



002 749 

QB9C 

2580 



DO 

2*2560* 




002750 

0690 

07 FF 



DO 

2 • 0 7 F F * 




002751 




* 






002752 

0B98 

0093 


M03 

DC 

Z * 0093 * 

BRANCH 10 OBFB (KAMI ONLY) IF 

FALSE 


002753 

089 F 

OFOO 



DO 

2»CF00* 

(IFZERO *KAM1) 



002754 

ObAO 

2033 



DO 

Z * 2033 * 




002755 

ObAl 

83F8 



DC 

Z»83Fb» 




002756 




* 






002757 

0BA2 

0093 


MO 4 

DC 

4 * 0093 * 

BRANCH 10 OFFB (RAM2 PREStNT) 

IF FALSE 


002756 

GBA3 

OFOO 



DO 

4 * CF 00 * 

(IFZERO * RAM2) 



002759 

0BA4 

2033 



DO 

Z•2033 * 




002760 

06A5 

87FB 



DO 

2 * 8 7 F B * 




002761 




* 






002762 

0BA6 

0093 


hC5 

DO 

Z *0Q93• 

BRANCH 10 OBFB (KAMI ONLY) IF 

TRUE 


002763 


CFQQ 



DC 

Z * 0-F u 0 * 

(IFZERO *KAMH 



002764 

08A6 

2033 



DC 

2*2033* 




002765 

0BA9 

03FB 



DO 

Z * 03Fb* 




002 766 




* 




* 


002767 

OBAA 

0093 


MO 6 

DC 

4*0093* 

BRANCH 10 OFFB (RAM2 PRESENT) 

IF TRUE 


002766 

GBAb 

OFOO 



DO 

Z * OF 00 * 

(IFZERO KAM2) 



002769 

OBAC 

2033 



DO 

4*2033* 




002770 

ObAD 

07Fb 



DO 

4»07 FB * 




002771 




* 






002772 

OBAt 

HAS 


MO 7 

DC 

4* 11A8* 

INC Rl* GO TO RETURN RoUTlNt 

(OBFC 


002773 

OBAF 

C30A 



DO 

Z • 030A * 

WHEN RAMI ONLY) 



002774 

ObbO 

2000 



DO 

Z ' 2000 * 

(INOR D15DX GOTO RETl) 



002775 

0881 

83FC 



DO 

Z * 8 3 F C * 




00277b 




* 






002 777 

QBB2 

11A6 


MC8 

DO 

4* 11A8 * 

INC Rl* GO TO RETURN ROUTINE 

(OFFC 


002776 

0BB3 

C30A 



DO 

4 * 030 A * 

WHEN RAM2 PRESENT) 



002779 

ObB4 

2000 



DC 

Z»2000 • 

(INOR D15D1 cO TO RET2) 



002780 

0885 

87F0 



DO 

4 * 87F0* 




002781 




* 






002782 

0886 

11A8 


MC9 

DO 

4* 11A8 * 

INC R2 



002 78 3 

0887 

C306 



DO 

4*0306* 

(INOR 02) 



002784 

0bB6 

2000 



DC 

2*2000* 




002785 

0B89 

07 FF 



DO 

4 • 0 7 F F « 




002786 




* 






002787 

OBBA 

0093 


MC10 

DO 

4*0093* 

CALL (OBFB WhtN RAMi ONLY) IF 

FALSE 


002788 

088b 

CBOO 



DC 

4 * CBuO * 

(IFZERO *RAM1*CALL) 



002789 

ObbO 

2033 



DO 

2*2033* 



4 x 

002790 

0B80 

C3F8 



DC 

4 * 03F 8 * 



m 

002 791 




* 





% m 

002792 

0688 

0093 


MCI 1 

DO 

4*0093* 

CALL (OFFB WHEN RAM2 PRESENT) 

IF FALSE 


002793 

0B6F 

OBOO 



DO 

4 * CBOO * 

(IFZERO *RAM2,CALL) 



002794 

0800 

2033 



DC 

4*2033* 
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002795 

ObCl 

C7Fb 



DC 

2 • C 7 F b * 


002796 




* 




00279/ 

0 bC2 

0093 


MC12 

DC 

2•0093 * 

CALL (ObFb WhEN RAMi ONLY) IF TRUE 

a 00279b 

0bC3 

CBOO 



DC 

2 •CBuO• 

(IF2ER0 KAMI•♦CALL) 

| 002/99 

0bC4 

2033 



DC 

2•2033• 


002600 

0bC5 

43FB 



DC 

2•43F b• 


002601 




* 




002602 

0 bC6 

0093 


MC 13 

DC 

4• 0093 * 

CALL (OPFb WHEN KAM2 PREStNT) IF TRUE 

002603 

ObC / 

CbOO 



DC 

4*CBU0* 

(I PZERO RAM2•* CALL) 

002604 

ObCb 

2033 



DC 

2*2033* 


002606 

0bC9 

47 Fb 



DC 

2 » 4 7 F B • 


002606 




# 




002607 

ObCA 

11 A6 


MC 14 

DC 

2 * 11A8 « 

INC R2♦ RETURN 

002606 

ObCb 

C306 



DC 

2 * C306 * 

(I NCR D25D2 RETURN) 

002609 

ObCC 

2000 



DC 

4 *2000* 


002610 

obcu 

27FF 



DC 

2 * 27F F * 


002611 




# 




002612 

ObCL 

0093 


MCI 5 

DC 

2*0093* 

CALL (ObFb WHEN RAMi ONLY) 

002613 

ObCF 

CBOO 



DC 

2 *CBOO* 

(CALL RAMI) 

002614 

GBDU 

2000 



DC 

2 *2000* 


002616 

ObDi 

C3F b 



DC 

4*C3PB» 


0026 lo 




* 




002617 

0bD2 

0093 


MCI 6 

DC 

2*0093* 

CALI (OF Fb WHEN RAM2 PREStNT) 

002616 

0BD3 

CBOO 



DC 

2»CBOO * 

(CALL KAM2) 

002619 

0b04 

2000 



DC 

2 *2000* 


002620 

0BD5 

C7Fb 



DC 

2 * C7F B * 


002621 




* 




002622 

ObDo 

0093 


MC17 

DC 

2*0093* 

RETURN IF TRUE OTHERWISE 00 TO RtTyRN 

002623 

0BD7 

cboo 



DC 

2•CBOO» 

ROUTINE (ObFC WHEN RAMI UNLY) 

002624 

0bD8 

2033 



DC 

4*2033* 

(IF2LRQ RETURN **XXX) XXX IS THE 

002626 

0BQ9 

A3FC 



DC 

2 * A3FC * 

LOCATION RETURN TO 

002626 




* 




002627 

ObUA 

0093 


MCI 6 

DC 

2*0093* 

RETURN IF TRUE OTHERWISE GO fO RETURN 

002626 

ObDb 

CbOO 



DC 

2 •CBOO * 

ROUUNt (OFPC WHEN RAM2 PREStNT) 

002629 

OBDC 

2033 



DC 

2*2033* 

(IF2ER0 RETURN **YYY) YYY IS f HE 

002o30 

ObDD 

A7FC 


- 

DC 

2 *A/PC* 

LOCATION RETURN TO 

002631 




# 




002632 

OBOE 

0093 


MC19 

DC 

2*0093* 

RETURN IF FALSc. OTHERWISE GO TO RETURN 

002633 

ObDP 

CBOO 



DC 

4*CB00* 

ROUTINE (UBFC WHEN RAMI UNLY) 

002634 

ObLO 

2033 



DC 

2*2033* 

(IF2ER0 *XXX% RETURN) XXX IS THE 

002636 

ObEl 

23FC 



DC 

2 • 2 3 F C * 

LOCATION RETURN TO 

002636 




* 




002637 

0 bt2 

0093 


MC20 

DC 

4*0093* 

RETURN IF FALSl OTHERWISE GO TO RETURN 

002636 

0bE3 

CBOO 



DC 

4•CBOO * 

ROUUNt (OFFC WHEN RAM2 PREStNT) 

002639 

ObE4 

2033 



DC 

2*2033* 

(IFZERO *YYY♦ RETURN) YYY IS THE 

002640 

0bE3 

27FC 



DC 

4 * 2 7 P C * 

LOCATION RETURN TO 

002641 




Ik 




002642 

ObE6 

1168 


MC2 1 

DC 

2 •11B6 * 

INC R1 AND PUT RESULT IN LINK REGISTER 

002643 

OBEY 

C30A 



DC 

2•C30A * 


002644 

0 BE8 

2D40 



DC 

2»2D40* 


002643 

0bE9 

O/FF 



DC 

2 * 0 7 P F • 


002646 




* 




002647 

ObEA 

0093 


MC22 

DC 

2*0093* 

L - bRANCH 

002646 

obbb 

CBOO 



DC 

2 * CBOO * 


00264 9 

ObEC 

2000 



DC 

2 *2000* 


£ 002650 

ObEO 

EOF F 



DC 

4*F0FF* 


8 002651 




* 




I 002652 

ObEt 

11 A6 


MC23 

DC 

2 • 11A6 * 

INC K1 

002653 

ObEF 

C30A 



DC 

2»C30A• 


002654 

ObFO 

2000 



DC 

4 *2000* 


002655 

OBF 1 

07 FF 



DC 

4 • 0 7 P F • 


002656 




# 




00265/ 

ObF <L 

8013 


MC24 

DC 

2*8013* 

SET SEL REGISTER 

002656 

ObF3 

CD1G 



DC 

2 * CD10 * 


002659 

ObF4 

2 A60 



DC 

2 * 2 AsO * 


002b60 

ObF 3 

07FF 



DC 

2 •0 7FF• 


002661 




* 




002662 

0BF6 

0093 


MC2 5 

DC 

4*0093* 

BRANCH 10 ObFb (RAMi ONLY) 

002663 

0BF7 

CFOO 



DC 

2*CFOO* 

IF TRUE FUR SEl REG SET 

002664 

ObFti 

202 F 



DC 

2 •202P * 


002665 

ObF9 

03FB 



DC 

2 * 03F b * 


002666 




* 




002667 

GbFA 

0093 


MC26 

DC 

4*0093* 

BRANCH 10 OPFb (RAM2 PRESENT) 

002666 

ObF b 

CFOO 



DC 

4 * CF00 * 

IF TRUE FOR SEl REG SET 

002669 

ObF C 

202F 



DC 

4 * 202F• 


002670 

ObFD 

0 7F b 



DC 

4 * 0 7 P b * 


002671 




# 




002672 

ObFt 

7 7 A 8 


MC27 

DC 

4•77A6 * 

INC b7 

002673 

ObF F 

C300 



DC 

2 *C300 * 


002674 

OCOO 

2000 



DC 

2 *2000* 


002673 

0 C01 

07 F F 



DC 

4 • 07FF * 


002676 




* 




002677 




* 




002676 




* 




0026/9 




* 




002680 

0 C02 

C842 

0000 

CSB10 

LDR 

SR4 •&B2•0 

SUBROUTINE TO PUT MICROCODE IN 

002681 

0C04 

0642 

0001 


EDR 

$R5 *Sb2•1 

R REGIS fEK 

002682 

0 C06 

E842 

0002 


LDR 

*K6»*B2.2 


002683 

0C06 

F842 

0003 


LDR 

SR7 *Sb2•3 


002684 

OCOA 

6386 



JMP 

Sb6 

RETURN 

002685 




# 




002686 

OLOb 

8054 


CSB20 

IQ 

~$R4 *<OUTDAT 

SUBRUUTINt TO LOAD MICROCODE INTO WCS 


OCOC 

0000 

14A3 





002687 

OCOE 

8055 



10 

s$K5♦<OUTDAT 



OCOF 

0000 

14A3 





002686 

OCli 

6056 



10 

?»K6*<0UTDAT 



0 C12 

0000 

14 A3 





002689 

0C14 

8057 



10 

=$K7,<0UTDAT 



0C15 

0000 

14A3 





002690 

0C17 

8366 



JMP 

Sb6 

RETURN 

002691 




# 




002692 




* 




002693 




* 




002694 




*************** ********* 4** ft**'* **# **************** 

002695 




* 




002696 




* 




002697 




* TEST 4 



g 002696 




* 




1 002699 




* 




002900 




* CONDITIONAL branch test 


002901 




************************** 


002902 




* 




002903 




* 
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002904 

002905 

002906 

002907 

002906 

002909 

002910 

002911 

002912 

002913 

002914 

002915 

002916 

002917 

002916 

002919 

002920 

002921 

002922 

002923 

002924 

002925 

002926 

002927 

002926 

002929 

00293U 

002931 

002932 

002933 

002934 

002935 

002936 

002937 

002936 

002939 

002940 

002941 

002942 

002943 

002944 

002945 

002946 

002947 

002946 

002949 

002950 

002951 

002952 

002953 

002954 

002955 

002956 

002957 

002956 

002959 

002960 

002961 

002962 

002963 

002964 

002965 

002966 

002967 

002966 

002969 

002970 

002971 

002972 

002973 

002974 

002975 

002976 

002977 

002976 

002979 

002980 

002981 

00,2982 

002983 

002984 

002985 

002986 

002987 

002986 

002989 

002990 

002991 

002992 

002993 

002994 

002995 

002996 

002997 

002996 

002999 

003000 

003001 

003002 

003003 

003004 

003005 

003006 

003007 

003006 

003009 

003010 

003011 


THt 1EST CONDITION IS ZERO FLOP SET 


CBT10 NOP 


8740 084A 

9840 0858 
9F40 0005 


E3C0 FE4F 


6840 083F 
3D01 
0209 
3D02 

0201 QQ1D 
3D03 

0201 0026 
0F81 0040 


1D01 

0981 0058 


C6T20 LDR 
ADV 
10 


<SPHAQR,<OUTADR 

TSTCNT 
$62 *MC1 
$66,CSB10 
$86,CS820 

RAM2FL 
C6T150 
$62 ,MC3 
$66,CS810 
$66,CS620 

$B2,MC7 
$B6,CSB10 
$66fCSB20 

$R3,WCSIZt 
$R3 * 5-4 
s$R3,<OUT ADR 

$62 , MC9 
$B6,CS61Q 
$66 *C5B20 


START TEST 


CBT30 LDR 
STR 


CBT40 RESV 

# 


CBT45 LDR 
CMV 


CBT50 CMV 
BNE 


CM Z 
BNE 
LAB 

CBT60 LNJ 


$R1,5PHC0D 

$RUCBT40 


$66,JRT21Q 


$R3,STORI 
$R3,s1 
>CBT50 
$R3»-2 
CBT7Q 
$R3,s3 
CBT8U 
C8T100 


$Rl,=l 

CBT200 


$R1 * 5PHADR 
$Rl,si 

•$Ri,<OUTADR 

RAM2FL 
CBT160 
$62 »MC5 
$B6,CS610 
$06,CSB20 
STORi 
C6T30 


0C6F 

1D00 


CBT70 

CMV 

$Rl,sQ 

0C70 

0981 

0041 

* 

* 

BNE 

CBT200 

0C72 

8000 

149B 

* 

* NOW the test condition is 

* modify microcode for test 

* 

# 

10 <SPHADR,<OUTADR 

0C74 

0C76 

0000 

ABCO 

14A2 

FF23 


LAB 

$62,MC2 

0C78 

E3C0 

FF89 


LNJ 

$B6,CSBI0 

0C7A 

E3C0 

FF9Q 


LNJ 

$B6»C5B2Q 

0C7C 

8AC0 

080F 


INC 

STORi 

0C7t 

0F81 

FFC4 

* 

8 

C6T30 

0C80 

1D01 


# 

CBT80 

CMV 

$RI,s1 

0C8I 

0981 

0030 

* 

8NE 

C6T200 

0C83 

9840 

0817 

* 

LDR 

$RI,SPHADR 

0C85 
0C86 
QC8 f 
0C89 

1E01 

8051 

0000 

89C0 

14A2 

080C 


ADV 

10 

CMZ 

SRI,si 

=$RI,<OUTADR 

RAM2FL 

0C6d 

0981 

0022 


BNE 

C6T170 

0C8D 

ABCO 

FF10 


LAB 

$62,MC3 

0C8F 

E3C0 

FF 72 

CBT90 

LNJ 

$B6,CSB10 

0C91 

E3C0 

FF79 


LNJ 

$B6,CSB20 

0C93 

8AC0 

07F8 


INC 

STORI 

0C95 

OF 8 1 

FF AD 


B 

CBT30 


WCS 1ST SPLASH LOCATION 
BUMP TEST COUNTER 

FETCH MICROCODE. SET ZERO FROM MAIN 
MEMORY AND PUT IT INTO WCS 

RAM2 PRtSENT? 

YES ^ 

NO. FETCH MICROCODE BRANCH 10 OBFB IF 
FALSE FROM MAIn MEMORY AND PUT IT INTO 
WCS 

FETCH MICROCODE. INC R1 AND 00 TO Q8FC 
(RETURN ROUTINE) 


LAST LOCATION IN WCs 
LOCATION FOR MICROCODE INC R2 


FETCH MICROCODE INC R2 FROM MAIN 
MEMORY AND PUT IT INTO WCS 


COUNTER FOR CHECK IN<s ALE TEST 
CONDITIONS ARE TESTED 
SPLASH MICROCODE 


ENABLE WCS AND STATUS CHECK 


SPLASH. ERROR IF 0 # K. NOT PRINTED 
IN 5 SEC 


ZERO SET , BRANCH IF TRUE TESTED? 

NO 

ZERO RESET, BRANCH IF TRUE TtSTED? 

ZERO RESET, BRANCH if FALSE TESTED? 

NO 

YES 


ERROR? 

YES. REPORT ERROR 


MODIFY MICROCODE FOr TESTING CONDITIONAL 
BRANCH WHEN TC = TRUE 

RAM2 PKtStNT? 

YES 

NO. FETCH MICROCODE BRANCH TO OBFB IF 
TRUE FROM MAIN MEMORY AND PUT IT INTO 

BUMP COUNTER 


ERROR? 

YES. REPORT ERROR 


ZERO FLOP RESET (CLEARED) 
N 6 


1ST SPLASH LOCATION 

FETCH MICROCODE RESET ZE*U FROM MAIN 
MEMORY AND PUT IT INTO WCS 

BUMP COUNTER 


ERROR? 

YES. RtPURT ERROR 


MODIFY MICROCODE FOr TESTING CONDITIONAL 
BRANCH WHEN TC = FALSE 

RAM2 PRtSENT? 

YES 

NO. FETCH MICROCODE BRANCH (0 OBFB IF 
FALSE FROM MAIN MEMORY AND PUT IT INTO 
WCS 

BUMP .COUNTER 
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0030ii 





* 




003UI3 





* 




_ 003UI4 

0 C 9 7 

1000 



CBT100 

CMV 

SR1*=0 

ERROR? 

JT%, 003015 

0C98 

0981 

0019 



BNE 

CBT2U0 

YES# RtPORT EkROR 

a 0030 I 6 

0C9 A 

0F8 1 

0027 



B 

CST10 

NO. GO TO NEXT TEST 

m t 003017 





* 




00301 a 





* 




003019 

UC9C 

ABCO 

FF05 


C6T150 

LAB 

SB2,MC4 

FETCH MiCROCODb BRANCH TO OFFb IF 

003020 

0C9E 

t3C0 

FF63 



LNJ 

SB6 * CSB10 

FALSt FROM MAIN MEMORY AND PUT II INTO 

003021 

0CA0 

t3C0 

FF6A 



LNJ 

*B6»cSb20 

wCS 

003022 





* 




003023 

0CA2 

ABCO 

FFOF 



LAB 

$B2 *MC8 

FETCH MICROCODE INC R1 AND GU TO OFFC 

003024 

0CA4 

t3C0 

FF50 



LNJ 

$D6* CSB10 

(RETURN ROUT INc) 

003025 

OCAa 

E3C0 

FF64 



LNJ 

SB6* CSB20 


003026 

OuAa 

OF 81 

ffbc 



B 

CBT20 


00302 1 





* 




00302b 

OCAA 

ABCO 

FEFF 


CBT160 

LAB 

SB2 *MC6 

FETCH MICROCODE BRANCH TO OFFb IF TRUE 

003029 

OCAC 

0F81 

FFBA 



B 

CBT60 

FROM MAIN MEMORY 

003030 





it 




003031 

UCAt 

ABCO 

FEF3 


CBT170 

LAB 

SB2 *MC4 

FETCH MICROCODE BRANCH TO OFFb IF 

003032 

OCBO 

OF 8 1 

FFDE 



b 

CBT90 

FALSE FROM MAIN MEMORY 

003033 





* 




003034 





* 




003035 





CBT200 

CALL 

ZV$tK *CBi*MSGCB1 

ERROR "CBi" 


0032 

FBCO 

0003 







0CB4 

0380 

0000 

X 






0CB6 

OF 80 








OCB / 

OCBF 








0Cb8 

1475 







003036 






CALL 

ZV$T *MSG4 

PRINT ” * REPLACE MB *" 


0CB9 

FBCO 

0003 







OCbb 

0380 

0000 

X 






QCbD 

Or 80 








OCbt 

1319 







003037 

OCBF 

0F7F 



CB1 

NOP 

>$-l 

** ERROR ** 

00303b 

OCCO 

OF 8 1 

FF8B 



b 

CBT45 

CONTINUt TEST 

003039 





* 




003040 





* 




003041 





it 




003042 





it 




003043 





it 




003044 





it 




003045 





it 




003046 





* TEST 5 



003047 





* 




003048 





it 




003049 





* CONDITIONAL SUBROUTINE CALL TEST 

003050 





************ nit ********************* 

003051 





* 




003052 





* 




003053 





* THE 

CONDITION NOW IS THE ZERO 

FLOP SET 

003054 





* MODIFY MICROCODES FOR TESTING 

1 

003055 





* 




003056 

0CC2 

0F7F 



CST10 

NOP 

>$-l 


00305/ 





* 




jr 00305a 





* 




f 003059 

0CC3 

8000 

149B 



10 

< SPHAUR i<QUT AUK 

WCS 1ST SPLASH LOCATION 

m 

0CC5 

0000 

14A2 






003060 

0CC7 

8AC0 

0708 



INC 

T ST CNr 

BUMP TEST COUNTER 

003061 

0CC9 

ABCO 

FECC 



LAb 

SB2*MC1 

FETCH MICROCODE SET ZERO FROM MAIN 

003062 

OCCb 

E3C0 

FF36 



LNJ 

SB6 «CSB10 

MEMORY AND PUT IT INTO WCS 

003063 

OCCD 

t3C0 

FF 30 



LNJ 

SB6 * CSB20 


003064 





* 




003065 

OCCF 

89C0 

07C6 



CMZ 

RAM2FL 

RAM2 PRESENT? 

003066 

0CD1 

0981 

0077 



BNE 

CST150 

YES 

003067 

0CD3 

ABCO 

FEE6 



LAb 

$B2 *MCIO 

NO. FEICH MICROCODE CALL SUBROUTINE 

003068 

00)5 

E3C0 

FF2C 



LNJ 

SB6•CSB10 

(AT ObFb) IF False and PUT ii inio WCS 

003069 

OCD / 

t3C0 

FF 33 



LNJ 

»B6 *CSB20 


003070 





* 




003071 

0CD9 

B840 

07C4 


CST20 

LOR 

SR3 *wCSIZE 

LAST LOCATION lN WCS 

003072 

OCDo 

3£FC 




ADV 

*R3f=-4 

LOCATION FOR SUBROUTINE 

003073 

QCDC 

8053 




10 

= $R3 * <OUTADR 



OCDD 

0000 

14A2 






003074 

OCDF 

ABCO 

FEEA 



LAB 

SB2 *MC14 

FETCH SUBROUTINE (INC R2 AND RETURN) 

003075 

0CL1 

£3 CO 

F F 2 0 



LNJ 

$B6*CSbI0 

AND PUT II INTO WCS 

003076 

OCt.3 

t3C0 

FF27 



LNJ 

SB6 9 CSB20 


003077 





* 




00307a 





* 




003079 





* STARTS TEST HERE 


003080 





* 




003081 

Oct 5 

8740 

07A6 



CL 

STORi 

COUNTER FOR CHECKING ALL TEST 

003082 





* 



CONDITIONS ARE TESTED 

003083 

0Ct7 

9840 

07B4 


CST30 

LOR 

SRI *SPHCOO 

SPLASH MICROCODE 

003084 

0CC9 

9F40 

0005 



STR 

SRI *CS140 


003085 





* 




003086 





* 




003087 

OCtb 

E3C0 

FOAB 



LNJ 

SB6*SRT2 10 

ENABLE WCS AND STATUS CHECK 

003088 





* 




003089 

octo 

8751 




CL 

= $R1 


003090 

octt 

8752 




CL 

= SR2 


003091 





* 




003092 

OCtF 

0000 



CST40 

RESV 

1*0 

SPLASH. ERROR IF O.K. NOI PRINTED 

003093 





* 



IN 5 SEC 

003094 





* 




003095 





* 




003096 





* 




003097 

OCFO 

B840 

079B 


CST45 

LUR 

SR3 * STOR1 


003098 

0CF2 

3D01 




CMV 

SR3 * s l 

ZERO SEU CALL IF TRUE TESTED? 

003099 

0CF3 

0209 




BL 

>CST50 

NO 

003100 

0CF4 

3002 




CMV 

SR3*^2 

ZERO RESEI* CAlL IF TRUE I ESI ED? 

003101 

0CF5 

0201 

0020 



BL 

CST70 

NO 

003102 

0CF7 

3003 




CMV 

$R3 *s3 

ZERO RESET* CALL IF FALSE TESTED? 

003103 

0CF8 

0201 

0031 



bL 

CST80 

NO 

003104 

OCFA 

0F81 

0046 



b 

CST100 

YES 

003105 





* 




003106 





* 




^ 003107 

OCFC 

1001 



CST50 

CMV 

$Rl*s 1 

ERROR? 

f \ 003108 

OCFO 

0981 

005b 



bNE 

CST200 

YES. RtPURT EkROR 

■ 003109 

OCFF 

2000 




CMV 

SR2*s0 

ERROR? 

% 003110 

0000 

0981 

0058 



BNE 

CST200 

yes. RtpoRT error 

003111 





* 




003112 





* 




003113 

0002 

9840 

0798 



LDR 

SRI *SPHADR 

MODIFY MICROCODE FOR TESTING CONDITIONAL 



TITLE CPFS4. »REV A* 
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003114 

OD04 

1E01 


AOV 

$Ri.=i 

SUBROUTINE CALL WHEN TC= TRUE 

003 i l s 

OD05 

8051 


IQ 

s$Rl.<OUTADR 

0006 

0000 

14A2 




003116 

0008 

89CG 

0780 


RAM2FL 

RAM2 PRESENT? 

003117 

000A 

0981 

0046 

CST16Q 

YES 

003116 

OPOC 

ABCO 

FEB5 

LAb 

$62.MC12 

NO. FETCH MICROCODE CALL SUBROUTINE 
(AT 0 BF 6 ) IF TRUE And PUT IT INTO WCS 

003119 

OPOE 

E3C0 

FEF3 

C5T60 LNJ 

$B 6 .CSB10 

003120 

0010 

E3C0 

FEF A 


ItoAx 5B2 ° 

003121 

0012 

8 ACO 

0779' 

BUMP COUNTER 

003122 

0P14 

0F81 

FF02 

b 

CST3U 


003123 




* 



003124 




* 



003126 

0016 

1001 


CST70 CMV 

$R1. = 1 

ERROR? 

003126 

0017 

0981 

0041 

BNE 

CST200 

YES. REPORT ERROR 

003127 

0019 

2001 


CMV 

$R2.~i 

ERROR? 

00312b 

001 A 

0981 

003E 

BME 

CST 200 

YES. REPORT ERROR 

003129 



* 



003130 




* 



003131 




* NOW THE 

TEST C0NPIT10N IS ZERO 

FLOP CLEARED 

003132 




* MQOIFY MICKOCOUE FOR TESTING 


003133 




* 



003134 




* 



003136 

001C 

8000 

149b 

10 

<SPHAOR * <OUTAPR 

WCS 1ST SPLASH LOCATION 


001E 

0000 

14A2 



003136 

0020 

ABCO 

FE79 

LAb 

$62.MC2 

FETCH MICROCODE RESET ZLR° FROM MAIN 

003137 

0022 

E3C0 

FEOF 

LNJ 

$ 66 .CSB10 

MEMORY AND PUT IT INTO WCS 

003136 

0024 

E3C0 

FEE 6 

LNJ 

$ 66 .CSB20 

003139 

0026 

8AC0 

0765 

INC 

ST0R1 

BUMP COUNTER 

003140 

0028 

0F81 

FFBE 

b 

CST30 


003141 




* 



003142 

002 A 

1001 


CST80 CMV 

$R1.=1 

ERROR? 

003143 

002 b 

0981 

0020 

BNE 

CST2U0 

YES. REPORT ERROR 

003144 

0020 

2000 


CMV 

$R2.=0 

ERROR? 

003146 

002E 

0981 

002A 

BNE 

CST200 

YES. REPORT EkROR 

003146 



* 



003147 

0030 

9840 

076A 

LOR 

$R1.SPHAOR 

MODIFY MICROCODE FOR JESTING CONDITIONAL 

00314a 

0032 

lfcOl. 


AOV 

$R1.5i 

SUBROUTINE CALL WHEN TC = FALSE 

003149 

0033 

89C0 

0762 

CM 2 

RAM2FL 

RAM2 PRESENT? 

003150 

0035 

0981 

001 F 

BNE 

CST170 

YES 

003151 

0037 

ABCO 

FE82 

LAb 

$62.MC10 

NO. FETCH MICROCODE CALL SUBROUTINE 
(AT QBF 6 ) IF false and put IT INTO WCS 

003152 

0039 

E3C0 

FEC 8 

CST90 LNJ 

$ 66 .CSB10 

003153 

003b 

E3C0 

FECF 

LNJ 

$ 66 .CSB20 

STORi 

003154 

0030 

8 ACO 

074E 

INC 

BUMP COUNTER 

003155 

0031- 

0F8 1 

FFA7 

B 

CST30 


003156 




* 



00315 7 




* 



00315b 

0041 

1001 


CST100 CMV 

$R1«=1 

ERROR? 

003159 

0042 

0981 

0016 

BNE 

CST200 

YES. REPORT ERROR 

003160 

0044 

2001 


CMV 

$R2 9 = 1 

ERROR? 

003161 

0045 

0981 

0013 

bNE 

CST200 

YES. REPORT EkROR 

003162 

0047 

0F8 1 

0021 

b 

CRT 10 

NO. GO TO NEXI TEST 

003163 




* 


003164 




* 



003165 




* 



003166 

0049 

ABCO 

FE74 

CST150 LAb 

$62.MCI 1 

FETCH MICROCODE CALL SUBROUTINE (AT 

003167 

0D4b 

E3C0 

FEB 6 

LNJ 

$ 66 .CSblO 

OFFB) IF FALSE AND PUT IT INTO WCS 

003166 

0040 

E3C0 

FEBO 

LNJ 

$b 6 .LSB20 

003169 

0.0 4 F 

OF 81 

FF89 

b 

CST20 


003170 




* 



003171 

0051 

ABCO 

FE74 

C5T160 LAb 

$B2.MCI 3 

FETCH MICROCODE CALL SUBROUTINE (AT 

003172 

0053 

OF 8 1 

FFBA 

b 

CST60 

OFFB) IF (RUE FROM MAIN MtMUKY 

003173 




* 


003174 

0055 

ABCO 

FE 68 

CST170 LAb 

$b 2 . MC 11 

FETCH MICROCODE CALL SUBROUTINE (AT 

003175 

003176 

003177 

006 7 

0F81 

FFE1 

B 

CST90 

OFFB) IF FALSE FROM MAIN MEMORY 




* 



00317b 




* 



003179 




* 



003180 




CST200 CALL 

ZVSEk.CSI.MSGCSI 

ERROR "LSI” 



0059 

FBCO 

0003 







005b 

0380 

0000 

X 






0050 

OF 80 








005E 

0066 








005 F 

1477 







003181 






CALL 

2 VST 9 MSG4 

PRINT " * kEPLACE MB *" 


0060 

FBCO 

0003 







0062 

0380 

0000 

X 






0064 

0F80 








0065 

1319 







003182 

0066 

0 F 7 r 



CS 1 

NOP 

>$-l 

** ERROR ** 

003183 

006 7 

OF 8 1 

FF 88 



b 

CST45 

CONTINUE TEST 

003184 





* 




003185 





* 




003186 





* 




003187 





* 




003188 





* TEST 

‘ 6 



003189 





* 




003190 





* 




003191 





* CONDITIONAL RETURN TEST 


003192 





************************** 


003193 





* 




003194 





* 




003195 





* THE 

TEST 

CONDITION IS ZERO 

FLOP SET 

003196 





* 




003197 





* 




003198 

0069 

0F7F 



CRT 10 

NOP 

>$-i 


003199 





* 




003200 





* 




003201 

006A 

8000 

149B 



10 

<SPHAOR.<OUTADR 

wCS 1ST SPLASH LOCATION 


0P6C 

0000 

14A2 






003202 

0D6E 

8 ACO 

0731 



INC 

TSTCNT 

BUMP TEi>T COUNTER 

003203 

0070 

ABCO 

FE25 



LAB 

$B2.MCI 

FETCH MICROCODE SET ZERO FROM MAIN 

003204 

0072 

E3C0 

FE 8 F 



LNJ 

$b 6 .CSblO 

MEMORY AND PUT IT INTO WCS 

003205 

0074 

E3C0 

FE96 



LNJ 

$ 66 .CSB20 


003206 





* 




003207 

0076 

89C0 

071F 



CM 2 

RAM2FL 

RAM2 PRESENT? 

00320b 

0076 

0981 

0072 



BNE 

CRT 150 

YES 

003209 

007A 

ABCO 

FE53 



LAb 

$82.MCI5 

NO. FEKH MICROCODE unCONDI1IONAL 

003210 

007C 

E3C0 

FE85 



LNJ 

$ 66 .CSblO 

CALL FROM MAIN MEMORY AND PUT IT INTO 

003211 

0071 

E3C0 

FE 8 C 



LNJ 

$66.CS620 

wCS 

003212 





* 




003213 

0080 

b840 

07 ID 


CRT20 

LOR 

$R3. wCSiZt 

LAST LOCATION IN WCS 

003214 

0082 

3EFC 




AOV 

$R3.=-4 

LOCATION FOR CONDITIONAL RETURN 



fjf ” \ 

[ '^,y 




TITLE 

CPFS4i 

> »REV A* 
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003215 

0083 

8033 



10 

s$K3 *<UUTADR 



0084 

0000 

14A2 





003216 

0086 

ABCO 

FE57 


LAB 

*B2tMC19 

FETCH MICROCODE RETURN IF FALSE 

003217 

0088 

89C0 

0700 


CM2 

KAM2FL 

RAM2 PREStNT? 

00321b 

008 A 

0981 

0068 


BN2 

CRT 160 

YES 

003219 

008C 

E3C0 

Ft 75 

CRT25 

LNJ 

Sb6*CSB10 

NO. LOAD WCS 

003220 

003221 

GD8E 

E3CQ 

FE7C 

* 

LNJ 

$06♦CSB20 


003222 




* STARTS TEST H2KR 


003223 

003224 

0090 

8740 

06FB 

* 

CL 

STORi 

COUNTER FOR CHeCR 1 Nfc ALL TEST 

003223 




* 



CONDITIONS ARE TESTED 

003226 

0092 

9840 

0709 

CRT30 

LDR 

$R 1 *SPHCOD 

SPLASH MICROCODE 

003227 

00322b 

0094 

9F40 

0005 

* 

STR 

$R1 tCRT40 


003229 




# 




003230 

003231 

0096 

E3C0 

FDOO 

* 

LNJ 

$06 *SKT 210 

ENABLE WCS AND STATUS CHtCK 

003232 

0098 

8751 



CL 

s SRI 


003233 

003234 

0099 

8 752 


# 

CL 

= $R2 


003233 

009A 

0000 


CRT40 

HESV 

1*0 

SPLASH. ERROR IF O.K. NOT PRINTED 

003236 




* 



IN 5 SEC 

00323 1 




* 




00323b 

009b 

B840 

06F0 

CRT45 

LDR 

SR3 *5TORI 


003239 

0090 

3001 



CMV 

$R3 * -1 

2ERQ SEI* RETUkN IF TRUE TESIED? 

003240 

0D9E 

0209 



BL 

>CRT30 

NO 

003241 

009 F 

300 2 

0010 


CMV 

SR3*-2 

ZERO RESEI* RE)URN IF TROt TESTED? 

003242 

OOAO 

0201 


BL 

CRT 70 

NO 

003243 

00A2 

3003 



CMV 

$R3*=3 

2tRQ RESET* RETURN IF FALSE 1ESTED? 

003244 

OOA3 

0201 

0020 


BL 

CRT 80 

NO 

003243 

003246 

00A5 

OF 81 

0040 

* 

b 

CRT 100 

YES 

003247 

00A7 

1000 


CRT50 

CMV 

$Rl*=Q 

ERROR? 

00324b 

003249 

OOAb 

0981 

0056 

* 

biM2 

CRT200 

Yt. REPORT ERROR 

003250 

OOAa 

b840 

06F3 


LDR 

SR3 * wCS122 

MODIFY MICROCODE FOr TESTING CONDITIONAL 

003251 

ODAC 

32FC 



ADV 

SR3*=-4 

RETURN WHEN TC • TRUE 

00325c 

OOAO 

8053 



10 

=$K3*<0UTADR 


OOAO 

0000 

14A2 





003253 

00b0 

ABCO 

FE2 5 


LAB 

SB2 *MC17 

FETCH MICROCODE RETURN IF TRUE 

003254 

0002 

89C0 

06E3 


CM2 

RAM2FL 

KAM2 PRESENT? 

003253 

00b4 

0981 

0042 


BNE 

CRT 170 

YES 

003256 

0006 

E3C0 

FE4B 

CNT60 

LNJ 

SB6 * CSB10 

NO. LOAD WCS 

003257 

ODBb 

E3C0 

FE.5 2 


LNJ 

SB6 * CSB20 


00325b 

OOOA 

8AC0 

0601 


INC 

STORI 

dump couniek 

003259 

003260 

OOOC 

OF 8 1 

FFD5 

* 

B 

CRT30 


003261 




* 




003c62 

ODBE 

1001 


CRT 70 

CMV 

SRl*sl 

ERROR? 

003263 

003264 

OOBF 

0981 

003 F 

* 

BNE 

CRT200 

YES. REPORT EkROR 

003265 




* 




003266 




* NOW 

TH2 

TEST CONDITION 15 ZERO 

FLOP RESET (CLEARED) 

003267 




* MODIFY MICR0CUD2 FUR TESTING 

00326b 

003269 

ODCl 

8000 

1490 

* 

10 

<5PHADR*<0UTADR 

WCS 1ST SPLASH LOCATION 


00C3 

0000 

14A2 




003270 

00C5 

ABCO 

FD04 


LAB 

SB2*MC2 

FETCH MICROCODE RESET ZERO FROM MAIN 

003271 

0007 

E3C0 

F23A 


LNJ 

SB6*C5B10 

MEMORY AND PUT IT INTO WCS 

003272 

G0C9 

23C0 

FE41 


LNJ 

*06*CSB2Q 

003273 

OOCb 

bACO 

06C0 


INC 

5T0R1 

BUMP CQUNIER 

003274 

003275 

OOCO 

OF 8 1 

FFC4 

* 

B 

CRT30 


003276 

ODCF 

1000 


CRT60 

CMV 

SR 1 * = 0 

ERROR? 

003277 

00327b 

0000 

0981 

0022 

* 

bN2 

CRT200 

YES. REPORT EkROR 

003279 

0002 

064Q 

06Cb 


LDR 

$R3*wCSIZE 

LAST LOCAIIGN IN WCS 

003280 

0004 

3EFC 



ADV 

sR3*s-4 

LOCATION FUR CONDITIONAL RETURN 

003281 

0005 

8053 



10 

~$R3 f <OOTADR 

0006 

0000 

14A2 




00328c 

ODOb 

ABCO 

F205 


LAO 

SB2 *MC19 

FETCH MICROCODE RETURN IF FALSE 

003283 

OOOA 

69C0 

06Bb 


CM2 

RAM2FL 

KAM2 PREStNT? 

003284 

OOOC 

0981 

0012 


BNE 

CRT 180 

YES 

003283 

OOOh 

E3C0 

F223 

CRT 90 

LNJ 

$B6*CSB10 

NO. LOAD WCS 

003286 

OOtO 

E3C0 

F22A 


LNJ 

SB6*C5B20 

BUMP CODNfEk 

003287 

OOtc 

8AC0 

06A9 


INC 

ST0R1 

00328b 

003289 

0004 

0F61 

F FAD 

* 

b 

CRT30 


003290 




# 




003291 

ODEo 

1001 


CRT 100 

CMV 

SR 1*51 

ERROR? 

003292 

00E7 

0961 

00-17 


BNE 

CRT200 

YES. RtPURT EkROR 

003293 

003294 

00E9 

0 F 81 

0025 

# 

b 

LBTIO 

NO. GO TO NEXT TEST 

003295 




# 




003296 

ODEO 

ABCO 

FD26 

CRT 150 

LAb 

$B2*MC16 

FETCH MICROCODE UNCONDITIONAL rALL 

003297 

OOEO 

E3C0 

F214 


LNJ 

S06fCbblO 

FROM MAIN MEMOKY ANp PUT IT INTO WCS 

003298 

OOEF 

E3C0 
Or 81 

F 210 


LNJ 

0 

Sb6 *CSb20 

003299 

003300 

OOF 1 

FF82 

* 

CRT20 




003301 

OOF 3 

ABCO 

F022 

CRT 160 

LAB 

SB2 *MC20 

FETCH MICROCODE RETURN IF FALSE FROM 

003302 

003303 

OOF 3 

0F61 

FF96 

* 

B 

CRT25 

MAIN MEMORY 

003304 

OOF 7 

ABCO 

F022 

CRT 170 

LAB 

SB2*MC18 

FETCH MICROCODE RETURN IF TROt FROM 

MAIN MEMORY 

003305 

003306 

OOF 9 

0F81 

FFOC 

# 

b 

CRT6U 


003307 

OOFB 

ABCO 

F026 

CRT 180 

LAb 

SB2*MC20 

FETCH MICROCODE RETURN IF FAESE FROM 

003308 

003309 

OOFO 

0F81 

FF20 

* 

0 

CRT 90 

MAIN MEMORY 

003310 




* 




003311 

OOFF 

OEOi 

0E03 

0204 

0E05 

FBCO 
0380 
OF 60 
OEOC 
1479 

0003 

0000 X 

CRT200 

CALL 

ZV$EK *CR1tMSGCRl 

ERROR "CR1" 

003312 



CALL 

ZV$T*MSG4 

PRINT " * REPeACE MB *" 


0206 

FBCO 

0003 





0208 

0360 

0000 X 






020A 

OF 60 







OEOb 

1319 






003313 

OEOC 

0F7F 


CR1 

NOP 

>S-1 

** ERROR ** 

003314 

OEOO 

OF 8 1 

F F8D 

b 

CRT45 




TITLE 

CPFS* < 

i * REV A* 
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003315 




* 




00331O 




* 




003317 




* 




003310 




* 




003319 




* 




003320 




* TEST 7 



003321 




* 




003322 




* 




003323 




* L - 

BRANCH TEST 


003*32* 




** ********** it****# 


003325 




* 




0 U 3 3 2 6 




* 




003327 




* PRELOAO 

microcodes IN wcs 


003328 




# 




003329 

OfcOF 

0F7F 


LBT1G 

NOP 

>$-i 


003330 




* 




003331 




# 




003332 

0E10 

6040 

068A 


10 

SPHAOR * <OUT ADR 

WCS 1ST LOCATION 


Ot 12 

0000 

14A2 





003333 

Ofc 14 

8AC0 

068B 


INC 

TSTCNT 

bump test counter 

003334 

Ot 16 

ABCO 

FDD7 


LAB 

$B2*MC23 

FETCH MICROCODE INC R1 FROM MAIN 

003335 

Ot i 6 

t3C0 

FOE 9 


LNJ 

Sb6*CSB10 

MEMORY AND PUT IT INTO WCS 

003336 

Ot 1A 

t3C0 

FOFO 


LNJ 

Su6 *CSB20 


003337 




* 




003336 

otic 

ABCO 

F0C9 


LAB 

SB2*MC21 

FETCH MiCKOCODt INC R1 AND PUT RESULT 

003339 

Otit 

E3C0 

F0E3 


LNJ 

*B6*CSB10 

IN LINK REGISTER 

003340 

0E20 

E3C0 

FDEA 


LNJ 

iB6♦CSB20 

LOAD MICROCODE IN WCS 

003341 




* 




003342 

OE22 

ABCO 

F0C7 


LAB 

SB2 i MC22 

FETCH MlCROCODc; L - BRANCH FROM MAIN 

003343 

0E24 

E3C0 

FOOD 


LNJ 

SD6 *CSB10 

MEMORY AND LOAu WCS 

003344 

0E2t 

E3C0 

FDE4 


LNJ 

SB6 *CSB20 


003345 




* 




003346 

0t26 

A840 

0672 


LOR 

$R2 * SPHADR 


003347 

012 A 

2E03 



AOV 

SR2* = 3 

START INO LOCATION To FILL WCS WI TH 

003346 

Ot2b 

AF40 

0660 


STR 

*R2*ST0R1 

INC R2. SAVE STARTING LOCATION 

003349 

0E20 

B840 

0670 


XOR 

$R3 * wCS1ZE 

LAST LOCATION IN WCs 

003350 

GE2F 

3EFC 



AOV 

SR3»--4 

ENDING LOCATION FOR INC R* 

003351 




# 




003352 

Ot 30 

ABCO 

F085 


LAB 

*b2*MC9 

FETCH MICROCODE INC R2 

003353 

Ot 32 

t3C0 

FOCF 


LNJ 

*B6*CSB10 


003354 

Ot 3* 

E3C0 

F 006 

LBT20 

LNJ 

SB6 *CSB20 

LOAD WCS 

003355 

0t36 

2E01 



AOV 

SR2*-1 


003356 

Ot3 7 

A953 



c m 

SR2 * = $R3 

ALL LOCATIONS FILLED? 

003357 

Ot36 

03FC 



BLt 

>LBT20 

NO 

003356 




* 




003359 

Ot 39 

OF 83 



b 

> L B T 2 5 


003360 

013 A 

E3C0 

03FC 


LNJ 

SB6 *RDBK10 

JUMP TO READ BaCK SUBROUTINE 

003361 




* 




003362 




* 




003363 




* STARTS TEST HERE 


003364 




* 




003365 

Ot3C 

9840 

065F 

LBT25 

LOR 

SRI*SPHCOD 

SPLASH MICROCODE 

003366 

0E3E 

9F40 

OOOD 


STR 

SRI*08140 


003367 




* 




003366 




# 




003369 

ot*o 

BBCO 

002B 


LAB 

$B3*LBT48 


003370 




* 




003371 

0t42 

B640 

065B 


LOR 

SR3*wCSIZE 


003372 

Ot*4 

3EF 0 



AOV 

3>R31 = -3 


003373 

Ot45 

5C03 



LDV 

*R5*=3 

ro check l - Register wrap around 

003374 

Ot46 

1C04 



LDV 

SR 1 i-4 

INITIALIZE R1 

003375 

0E4 7 

C840 

0644 


LOR 

SR4 * S TOR 1 

STARTING LOCATION FOR INC R2 

003376 

Gt49 

E3C0 

FC4D 

LBT3Q 

LNJ 

SB6« SR T 210 

ENABLE WCS AND STATUS CHECK 

003377 

0E4b 

A854 



LOR 

SR2* = $K4 

INITIALIZE R2 

003378 




* 




003379 

Ot4C 

0000 


LBT40 

RtSv 

1*0 

SPLASH. tRRQR IF O.K. NOT PRINTED 

003380 




* 



IN 5 SEC 

003381 




* 




003382 

0E4U 

A953 



CMR 

SR2*-$R3 

ERROR? 

003383 

0t4t 

09A6 



BNE 

>LBT50 

YES. REPORT ERROR 

003384 

0E4F 

5E01 



AOV 

SR5*=1 

count i 

003385 

0E50 

D970 

OOFF 


CMR 

SR5*-2*00FF» 

L - REGISTER WhAP AROUND? 

003386 

0E52 

0306 



BO 

>LBT *5 

YES 

003387 




* 




003386 




* 




003389 

Ot53 

4E01 


LBT43 

AOV 

SR4*=1 

NEXT LOCATION FOR L - eRANcH TESTING 

003390 

Ot 54 

C953 



CMR 

SR4 * = 3>R3 

L - BRANCH TESTED FOR ALL LOCATIONS? 

003391 

0E55 

0274 



bL 

>LBT 30 

NO 

003392 

Ot-56 

0FB1 

OOF 5 


B 

1FT10 

YES. GO TO NeXT test 

003393 




* 




003394 




* 




003395 

OB 5^6 

E840 

0642 

LBT45 

LOR 

-SR 6-* SPHADR 


003396 

Ot5A 

6E02 



AOV 

SR6* = 2 


003397 

0t5b 

8056 



10 

=$R6*<0yTADR 



0E5C 

0000 

14A2 





003396 

0E5E 

CF40 

0629 


STR 

SR4 * I MP2 

SAVE R4 

003399 




* 




003400 

0E60 

ABCO 

FD89 


LAb 

SB2*MC22 


003*01 

0t62 

E3C0 

FD9F 


LNJ 

SB6*CSB10 


003402 

0E64 

FA73 



AOO 

SR7 * ♦ $>B3 


0Q34Q3 

0E65 

E3C0 

FDA5 


LNJ 

SB6 *CSB20 


003404 

0 E 6 7 

C840 

0620 


LOR 

$R4*TMP2 

RtSTORt R4 

003405 




* 




003406 

0E69 

1CFE 



LOV 

SRI * s-2 

REINITIALIZE Rl 

003*07 

0E6A 

5C00 



LDV 

SR5* = 0 

REINITIALIZE R5 

003*06 

0E6B 

0FE8 



B 

>LBT*3 


003409 




* 




003410 




* 




003411 

0t6C 

0100 


LBT48 

oc 

X» 100» 


003412 

0E60 

0200 



OC 

X 1 200 * 


003413 

0E6E 

0300 



OC 

X * 300 • 


003414 

0E6F 

0400 



OC 

X • 400 1 


003415 

0t70 

0500 



OC 

X • 500 f 


003416 

Ot 71 

0600 



DC 

X * 600 * 


003417 

0t72 

0700 



DC 

X * 700 * 


003416 

0t73 

0800 



DC 

X * 800 1 


003419 




* 




003420 




# 




003421 




* 




003*22 




LBT50 

CALL 

tVStKiLBl*MbGLBl 

ERROR "LBI” 


0t74 

F8C0 

0003 






Ot 76 

0380 

0000 X 






0t78 

OF 80 








/4f" 'ls\ 




TITLE 


CPFS4, • REv A* 
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003423 


003424 

003425 

003426 

003427 

003420 

003429 

003430 

003431 

003432 

003433 

003434 

00343b 

003436 

003437 


Ut79 

0E81 


0E7A 

147b 


0E7B 

FBCO 

0003 

0E7D 

D380 

0000 

0E7F 

OF 80 


0E80 

1319 


0E81 

0F7F 


0L82 

0F81 

0001 


003474 

00347b 

003476 

003477 

003476 

003479 

003480 

003481 

003482 

003483 

003484 

00348b 

003486 

003487 

003486 

003489 

003490 

003491 

003492 

003493 

003494 

00349b 

003496 

003497 

003496 

003499 

003b00 

003b01 

003b02 

003b03 

003504 

003506 


003606 


003607 
003606 
003609 
003610 
003611 
00361 c 
003613 
003614 
003615 
003516 
003517 
003516 


0EB8 

OLBA 

OEBC 

Otbt 


AB80 OLCF 
AF80 0000 
A840 ObDF 
AF40 0003 


OLCO E3C0 FBD6 


0EC2 0000 


0EC3 

OECb 

0LC7 


89C0 05DB 
0901 OOOC 
8740 05D7 


0LC9 7E0X 


OtCA 

JECB 

OLCO 


OLCF 

QED1 


0LD2 

0L04 

0ED6 

0ED7 

0ED8 

0tD9 

OLOb 

OEDD 

OEDE 

OEDF 


F953 

038-t + FDD 
0F81 0014 


8AC0 05CF 
0003 


FBCO 0003 
0380 0000 
OF 60 
OEDF 
147D 

FBCO 0003 
D380 0000 
0F80 
1319 
0F7F 


OEEO 0F81 0001 


CALL ZV$T*MSG4 


LBi NOP >$-l 
b 2. NT 10 

* 

* 

* 

* 

* 

* TEST 8 

* 

* 

* ZERO NA FitLU 1EST 
********************* 

* 


003436 

0E64 

0F7F 


ZNT10 

NOP 

>4-1 

003439 




* 



003440 




* 



003441 

0E86 

8000 

149b 


10 

<SPHADRi<OUT ADR 


0E87 

0000 

14A2 




00344c 

0E89 

8 ACO 

0616 


INC 

TSTCNI 

003443 

0 E8B 

9840 

060F 


LDR 

$R 1 * SPHADR 

003444 

0E8D 

b840 

0610 


LDR 

SR3.WCSIZE 

003446 

0E8F 

3EFC 



ADV 

SR3« s —4 

003446 

OE90 

ABCO 

FD6D 


LAB 

$B2*MC23 

003447 

0E92 

E3CU 

FD6F 


LNJ 

SB6 *CSB10 

003446 

0L94 

8757 



CL 

= SR7 

003449 

0E95 

E3C0 

FD7 5 

ZNT20 

LNJ 

Sb6 * CSB20 

00345U 

0L97 

1E01 



ADV 

SR 1 * = 1 

003*51 

0E98 

9953 



CMR 

SR 1 * = $R3 

003452 

0E99 

03FC 



BLE 

> Z N T 2 0 

003453 




* 



003454 




* 



003455 

019 A 

9870 

0140 


LDR 

SR1*=Z'0140» 

003456 

0E9C 

9900 

148E 


CMR 

SR1 * <ST Ab1T 

003457 

0E9E 

0985 



BNE 

>ZN T 25 

003458 

0E9F 

7C02 



LDV 

SR7 * s2 

003459 

OEAO 

B270 

0800 


SUB 

SR3♦=Z * 0800• 

003460 

0LA2 

OF 87 



b 

>ZNT 30 

003461 




* 



003462 




* 



003463 

0EA3 

B470 

8000 

ZNT25 

OK 

SR3 *sZ•8000 » 

00346* 

0LA5 

b270 

0800 


SUB 

SR3♦ = Z * 0800 * 

003465 

0EA7 

F 870 

8002 


LDR 

SR7*=Z*8002» 

003466 

0EA9 

8000 

149B 

ZNT30 

10 

<SPHADR.<OUT ADR 


OEAb 

0000 

14A2 




003467 

DEAD 

C870 

0093 


LDR 

SR4*sZ*0093» 

003466 

OEAF 

D870 

C 7 0 0 


LDR 

SR5.=Z«C700» 

003469 

OEBi 

E870 

2000 


LDR 

SR6.sZ* 2000• 

003470 




* 



003471 

0EB3 

E3C0 

FD57 


LNJ 

SB6.CSB20 

003472 

OEbb 

0F83 



b 

>ZNT 35 

003*73 

ULB6 

E3CQ 

0380 


LNJ 

Sb6 * KDBK10 


* 

* STARTS TEST HERE 

* 

ZNT35 


LAb 

STb 

LOR 

STR 


Sb2*<ZNT80 
$B2*<ZHTH15 
SR2 * SPFiCUO 
SR2 *ZN140 


* 

* 

* 

ZNT40 

* 


* 

ZNT50 

* 


* 

* 

* 

ZNT80 

* 

* 

ZNT90 


LNJ Sb6 * SRT 210 


RESV 1*0 


CMZ 

BE 

CL 

AOV 

CMR 

BLE 

B 


INC 

RTT 


TRPFlG 

ZNT90 

TRPFLG 

SR7.51 

SR7,=$R3 
ZNT30 
SAT 10 


TRPFLG 


CALL ZVSEK»ZNl,MSGZNi 


CALL 2VST.MSG4 


ZN1 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


NOP 


>4-1 


SAT 10 


PRINT " * REPLACE MB *" 


** ERROR ** 

GO TO NEXT TEST 


WCS 1ST ENTRY LOCATION 

BUMP TEST COUNTER 
SPLASH AOOR. K1 = COUNTER 
LAST LOCAI ION IN WCS 
LAST LOCAI I ON FOR TESTING 
FETCH MICROCODE FOR INC Ri 

CHANGE NA FIELu TO 0 
LOAD WCS 

ALL LOCATIONS LOADED? 

NO 


TRANSPARENT MO^E? 

NO 

YES. MODIFY Nm FIELD 


NA FIELD 

WCS 1ST ENTRY LOCATION 
MICROCODE UNCONDITIONAL UUMP 


LOAD WCS 

CHANGE 10 NOP MANUALLY FOR 
JUMP TO READ bACK SUBROUTINE 


SET UP IV 15 
SPLASH MICROCODE 

ENABLE WCS AND STATUS CHECK 


SPLASH. ERROR IF O.k. NOT 

IN 5 SEC 

TRAP? 

NO. REPORT ERROR 
YES. CLEAR TRAP FLAG 

bUMP NA FIELD FOR MICROCODE 
JUMP 

ALL LOCATIONS TESTED? 

NO 

YES. GU TO NEXT TEST 


SET TRAP FLAG 
RETURN 


ERROR "ZNi" 


PRINT "* REPLACE Mb*« 


** ERROR ** 

ZERO NA FIELD ERROR 
REPLACE MOTHER BOARD 
GO TO NEXT TEST 


TEST 9 

SPLASH AFTER REINITIALIZE WCS TEST 


READ BACK 


PRINTED 


UNCONDITIONAL 




title: 

CPFS4i 

► »REV A* 
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003b X 9 




a************************************ 


003520 




* 





003521 




* 





003522 

UEE2 

0F7F 


SAT 10 

NOP 

>4-1 



003523 




* 





003b24 




* 




m V) 

003b2b 

QEE3 

8000 

149B 


10 

<SPHAOR<<OUTADR 

WCS 1ST ENTRY LOCATION 

V 1' 


0EE5 

0000 

14A2 






003326 




* 





003527 

0EE7 

8 ACO 

05B8, 


INC 

TSTCNT 

BUMP TE^T COUNIER 


003528 




* 





003b29 




* 





003b30 

0EE9 

AB80 

0F25 


LAB 

4B2 *<SAT90 

SET UP FOR TVS 


Q03531 

OEEB 

AF80 

0000 X 


STB 

4B2*<ZHTH5 



003b32 

OEED 

3CF0 



LDV 

4R3*=-16 

TO COUNI 16 SPLASH LOCATIONS 


003333 

OttE 

1CF0 



LDV 

$R1*--16 

PRELOAD 16 LOCATIONS WITH MICROCODES 


003334 

OEEF 

89C0 

05A6 


CMZ 

RAM2FL 

RAM2 PRtSENT? 


00333b 

OEFi 

0981 

002 F 


BNE 

SAT8U 

YES 


003336 

0EF3 

ABCO 

FCBA 


LAB 

4B2 * MC7 

NO, FETCH MICROCODE (INCK DUDl RETl) 


003337 




# 





003538 




* 





003539 

OtF 5 

A870 

0140 

SAT2Q 

LOR 

4R2 *-Z•0140• 



003340 

0EF7 

A900 

148E 


CMR 

4R2 *<STABIT 

TRANSPARENT MODE? 


003341 

0EF9 

0983 



bNE 

>SAT25 

NO 


003342 

OEFA 

F270 

8000 


SUB 

iR7*=Z«8000» 

YES, MUDIFY Nm FIELD 


003543 




# 





003344 




# 





003543 

OEFC 

E3C0 

FD05 

SAT25 

LNJ 

4B6 *CSblO 

LOAD WC^> 


003546 

OEFE 

E3C0 

FOOC 


LNJ 

$B6 * CSB20 



003547 

OFOO 

17FC 



6 INC 

$R1 * >SAT25 

bKANCH IF ALL 16 LOc. ARE NOT LOADED 


003346 

OF 01 

0F83 



b 

>SAT30 



003549 

OF 02 

E3C0 

0334 


LNJ 

4b6 * KDBK10 

JUMP TO RtAD BACK SUBROUTINE 


003350 




# 





003351 




* STARTS TEST HERE 



003352 




* 





003553 

OF 04 

A840 

0597 

SAT 30 

LDR 

4R2 * SPHCOD 

SPLASH MICROCODE 


003554 

OF 06 

AF40 

000b 

SAT 32 

STR 

4k2 * SAT 40 



003555 

0F08 

E3C0 

FB8E 


LNJ 

$66*SRT210 

ENABLE WCS AND STATUS CHECK 


003556 




* 





003557 




* 





003556 




* 





003559 

OF OA 

8070 

8000 

SAT35 

10 

* 8000•* <OUTCON 

SOFT INITIALIZE WCS 



OF OC 

0000 

14A1 






003360 

OF OE 

0703 



BIOT 

>SAT 38 



003361 

OF OF 

E380 

114B 


LNJ 

4b6 * <NAKERR 

REPORT ”NAK M ERROR 


003362 

OF 11 

8751 


SAT38 

CL 

= $R 1 



003363 




# 





003564 




* 





003363 

OF 12 

0000 


SAI40 

RESV 

1 *0 

SPLASH 


003566 




* 





003567 

OF 13 

89C0 

Q58B 


CM2 

TRPFLG 

TRAP? 


003366 

OF 1 5 

0901 

0012 


BE 

SAT 100 

NO, REPORT ERROR 


003569 

OF 17 

8740 

0587 


CL 

TRPFLG 

YES, CLEAR TRAP FLAG 


003370 

OF 19 

1D00 



CMV 

4R1* = 0 

ERROR? 


003571 

OF 1A 

0981 

0010 


bNE 

SAT 110 

YES, REPORT ERROR 


003574 

OF 1C 

8AQ2 



INC 

= 4R2 

BUMP GENERIC FUR NEXT SPLASH TEST 


003373 

OF 10 

3781 

FFE8 


BINC 

4K3 * SA132 

dkANCH 10 CONTINUE NEXT SPLASH TEST 

\ 

003374 

0F1F 

OF 61 

0026 


B 

SAT 120 



003575 




* 




i; 

003376 




* 




X^ . y 

003377 




* 





003376 

OF 21 

ABCO 

FC90 

SAT 80 

LAB 

462*MC8 

microcode (INCR D1?D1 R E T 2) 


003379 

OF 23 

OF 81 

FFD1 


b 

3AT20 



003580 




# 





003581 




* 





003584 

OF 25 

8 ACO 

0579 

SAT90 

INC 

TRPFLG 

SET TRAP FLAG 


003583 

OF 2 7 

0003 



r r r 




003584 




* 





003385 




* 





003386 




SAT 100 

CALL 

2V4ER*SA1*MSGSA1 

ERROR "SA1" 



OF 28 

FBCO 

0003 







OF 2 A 

0380 

0000 X 







0F2C 

0F80 








0F20 

OF 3 5 








OF 2 E 

1483 







003587 





CALL 

ZVST *MSG4 

PRINT M * REPLACE Mb *» 



0 F 2 F 

FBCO 

0003 







OF 3 1 

0380 

0000 X 







OF 3 3 

0F80 








OF 34 

1319 







003566 

OF 35 

0F7F 


SA1 

NOP 

>4-1 

** error ** 


003569 


- 





REPLACE MOTHER BOARD 


003390 

OF 36 

OF 8 1 

OOOF 


b 

SAT 120 



003591 




# 





003392 




* 





003393 




SAT 110 

CALL 

2V4ER*SA2*MSGSA2 

ERROR ”SA2" 



OF 38 

FBCO 

0003 







OF 3 A 

0380 

0000 X 







OF 3C 

OF 80 








OF 30 

OF 45 








OF 3t 

1485 







003594 





CALL 

4V$T*MSG4 

PRINT «* REPLACE Mb *» 



OF 3F 

FBCO 

0003 







0 F 41 

0380 

0000 X 







0F43 

OF 80 








OF 44 

1319 







003593 

OF 45 

0F7F 


SA2 

NOP 

>4-1 



003596 




* 





003597 

OF 46 

A870 

0140 

SATI 20 

LuR 

4R2*-Z , 0140* 



003396 

OF 4b 

A900 

148E 


CMR 

4R2 * <ST Ab1T 

TRANSPARENT MOuE? 


003399 

OF 4A 

0901 

0196 


BE 

TIT390 

YES 


003600 




* 





003601 




* 





003602 




# 





003603 




* 





003604 




* 





003605 




* 





003606 




* 





003607 




* 





003606 




* 




£ 1 

003609 




* TEST 10 



1 * 

003610 




* 





003611 




* 







mu 


CPFS4 


f * REV A* 
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0036U 

003613 

003614 

003615 

003616 

003617 

003616 

003619 

003620 

003621 

003622 

003623 

003624 

003625 

003626 

003627 

003626 

003629 

003630 

003631 

00363c 

003633 

003634 

003636 

003636 

003637 

003636 

003639 

003640 

003641 

003642 

003643 

003644 

003645 

003646 


0F4C 0F7F 


0F4L) 
0 F 4 F 
OF 51 


OF 5 3 
OF55 
OF 57 

0F59 
OF 5b 
OF 50 
OF 5F 
OF 61 

OF 6 3 
0F65 
OF 6 7 

OF 69 
OF 6b 
OF 6C 
0F60 
0F6F 
0 F 71 
OF 73 


6000 1496 
0000 14A2 
8ACO 054E 


ABCO FC9E 
E3CQ FCAC 
E3C0 FCB3 


89C0 

0981 

ABCO 

E3C0 

E3C0 

ABCO 

E3C0 

E3C0 

6840 

3EFC 

6053 

0000 

ABCO 

E3C0 

E3C0 


053C 

0037 

FC98 

FCA2 

FCA9 

FC4A 

FC9C 

FCA3 

0534 


14A2 
FC8E 
FC90 
FC97 


003647 

0 F 7 5 

OF 83 


003646 

003649 

003650 

003651 

OF 76 

E3C0 

02C0 

003652 

003653 

0F78 

9840 

0523 

003654 

003655 

003656 

OF 7A 

9F40 

0006 

003657 

003658 

OF 7C 

E3C0 

FB1A 

003659 

0 F 7 E 

8751 


003660 

003661 

0F7F 

FC80 

1236 

003662 

003663 

OF 8 1 

0000 


003664 

OF 82 

1DOO 


003665 

0F83 

0981 

00 ID 

003666 

OF 85 

FFCO 

0505 

003667 

OF8 7 

89C0 

0503 

003668 

OF 89 

0901 

0017 

003669 

0F8B 

FBCO 

0003 


OF 8D 

D380 

0000 


0F8F 

0F80 



OF 90 

1389 


003670 

003671 

OF 9 1 

0 F 8 1 

0176 

003672 

003o73 

OF 93 

ABCO 

FC66 

0Q3674 

OF 95 

E3C0 

FC6C 

003o75 

003676 

OF 97 

E3C0 

FC7 3 

003677 

0F99 

ABCO 

PC 18 

003678 

0F9B 

E3C0 

FC6 6 

003679 

OF 9D 

E3C0 

FC6D 

003680 

0F9F 

0F81 

FFC9 


003681 

003682 

003683 

003684 


003685 


003686 

003687 

003686 

003689 

003690 

003691 

003692 

003693 

003692 

003695 

003696 

003697 

003698 

003699 


OF At 

FBCO 

0003 

0FA3 

D380 

0000 

Of A 5 

OF 80 


0FA6 

OFAE 


OF A7 

147 F 


OFAd 

FBCO 

0003 

OF AA 

D380 

0000 

OF AC 

OF 80 


OFAD 

1319 


ofae 

0F7F 


OF AF 

OF 8 1 

015D 


* INTERFACE TEST 

a#*#*****###*###* 

* 

# 

* THE PURPOSE OF THIS TEbT 

* INTERFACE TEbT 

* 

1 FT 10 NOP >$-l 
* 

* 


lb TO RUN ADDITIONAL FIRMFARE FOR CPU-WCS 


* 

IFT20 


10 <5PHADR t<OUTADR 
INC TSTCNi 


LAB $B2 tNC24 

LNJ $B6 *CSB10 

LNJ $B6 * C5B20 

CM2 RAM2FL 
bNE I FT 60 
LAB $B2.MC25 
LNJ $B6*CSB10 
LNJ $B6 i CSB20 

LAB $B2 *MC7 

LNJ $66 *CSbi0 

LNJ $66 « CSB20 

LDK $R3*WC$UE 
ADV $R3 * = -4 

10 = $R3 *<OUT ADR 

LAB $B2,MC27 
LNJ $B6.CSB10 
LNJ $B6,CSB20 

B > I F T 3 0 

LNJ $66,RDBK10 


* 

* 

* bTARTS TEST HERE 

* 

1FT30 


* 

1FT40 

* 


LDR 

STR 


$R1♦SPHCOD 
$R1* IF I 40 


LNJ 


CL 

LDB 


$B6*5KT210 
= $R 1 

$67,<NULL 


REbV 1»0 


IFT60 


CMV 

BNE 

STB 

CMZ 

BE 

CALL 


LAB 

LNJ 

LNJ 

LAB 

LNJ 

LNJ 

B 


$R1*=0 
IFT80 

$B7»iMP4-SAF+2 

TMP2*1 

1FT80 

2V$1C * MSGOK 


EOP 


$62 *MC26 
$B6 tCSBlO 
$66 * CSB20 

$B2 *MC8 
$B6,CbB10 
$b6 * Cbb20 
1FT2U 


IF T 8 0 CALL cV$ER . IF 1*MSGIF1 


CALL 2V$T*MSG2 


NOP 

b 


>$-l 

EOP 


WCb 1bT SPLASH LOCATION 
BUMP TEBT COUNTER 


FETCH MICROCODE SET SEL REGISTER FROM 
MAIN MEMORY ANu PUT IT INIO WCS 

RAM2 PktSENT? 

YES 

NO* FEKH MICkOCODe BRANCH 10 OBFB IF 
TRUE FOR SEL KeG SET FROM MAIN MEMORY 
AND PUT II INTu WCS 

FETCH MlCROCODt INC R1 AND GO TO OBFC 
(RETURN ROUTINl) ANd PUT IT INTO WCS 

LAST LUCA!ION *N WCS 
LOCATION FOR MICROCODE INC b? 

FETCH MICROCODE INC B7 FROM MAIN 
LOAD WCS 


JUMP TU READ BmCK SUBROUTINE 


SPLASH MICROCODE 


ENABLE WCS AND STATUS CHECK 
CLEAR 67 

SPLASH. ERROR IF O.K. NOT PRINTtD 
IN 5 SEC 
R1 s 0? 

NO. REPORT ERROR 
YES 

ERROR? 

YES. REPURT t*ROR 
NO ERROR. PRINT "O.K.” 


DONE 


FETCH MICROCODE BRAncH TO OFFb IF TRUE 
FUR SEL REG SET FROM MAIN MEMURY AND 
PUT IT 1NI 0 WCS 

FETCH MICROCODE INC Rl, GU TO OFFC 
(RETURN RUUTINU AND PUT IT INTO WCS 


ERROR ”IF1” 


PRINT ” * REPLACE MB *" 


I FI 

# 

* 

* 

# 

* 

* TRANSPARENT MODE INTERFACE TEST 

# 

* 

* MICROCODES FOR TRANSPARENT MODE 

* 


** tRRUR 
DONE 


TEST 


003700 

Oh bi 

13A0 

TMC1 

DC 

2•13A0 * 

R7 

003 701 

OFBe 

9300 


DC 

2*9300 * 

GO 

003 702 

0Fb3 

2000 


DC 

2*2000* 


003703 

OF B4 

07FC 


DC 

E * 0 7 F C • 


003702 



* 




003705 

0FB5 

13A6 

TMC2 

DC 

2•13A8• 

R 7 

003706 

OF b6 

9300 


DC 

2*9300* 

GO 

003707 

OF b7 

2000 


DC 

2 * 2000 * 


003706 

OF B8 

07FC 


DC 

2 * 0 7 F C * 



R3 


R3 


R7 


R7 


003 709 



TITLE CPF 54 * • R E V A* 


PACE 42 


003710 

OF 09 

13A7 

003711 

OFbA 

9F00 

003712 

OFBb 

2000 

003713 

OF bC 

07FC 

003714 



003715 

OF BO 

03F 3 

003716 

GFbL 

BFOO 

003717 

0F6F 

2000 

003716 

OFCO 

07FC 

003719 



003720 

OFC1 

0180 

003721 

0FC2 

0300 

003722 

OF C3 

2000 

003723 

0FC4 

0001 

003724 


003725 

OF C3 

1000 

003726 

OF C6 

C300 

003727 

OF C7 

2000 

003728 

OF Cb 

0002 

003729 



003730 

0FC9 

0000 

003731 

OF CA 

6260 

003732 

OFCb 

0000 

003733 

OFCC 

0003 

003734 



003735 

OFCO 

OlbO 

003736 

OFCE 

8300 

003737 

OF CF 

2000 

003738 

OF 00 

07FC 

003739 



003740 

OF 01 

4P 13 

003741 

OF 02 

bFOO 

003742 

OF 03 

2000 

003743 

OF 04 

0001 

003744 



003745 

OF 05 

CFFF 

003746 

OF 06 

FBFQ 

003747 

OF 07 

2000 

003746 

0FD8 

07FC 

003749 



003750 



003751 



003 1 52 



003753 



003754 



003755 



003756 



003757 

OF 09 

69C0 

003756 

OF Ob 

0981 

003759 

OF 00 

E360 

003760 




OF OF 

FbCO 


0FE1 

0380 


OF E3 

OF60 


0FE4 

13D2 

003761 




0PE5 

FbCO 


OF L 7 

0380 


003762 
U03763 
003764 
003765 
003766 
003767 
003766 
003769 
003770 
003771 
003772 
003773 
003774 

003773 

003776 

003/77 
003776 
003779 
003780 
00378i 
003782 
003783 
003784 
003783 
003786 
003787 


003797 

003796 


DC 

2 

• 13A7« 

DC 

2 

* 9F 00 1 

DC 

2 

•2000* 

DC 

2 

• 07FC * 

DC 

2 

* 03F 3 • 

DC 

2 

•BFOO* 

DC 

2 

•20U0* 

DC 

2 

» 0 7 F C * 

DC 

2 

*0180* 

DC 

2 

»b300* 

DC 

2 

*2000* 

DC 

2 

*0001» 

DC 

2 

* 10b0* 

DC 

2 

* C300 * 

DC 

2 

• 2000* 

DC 

2 

* 0002 • 

DC 

2 

*0000* 

DC 

2 

•8260* 

DC 

2 

*0000* 

DC 

2 

*0003* 

& 

2 

•01b0« 

2 

•6300* 

DC 

2 

•2000* 

DC 

2 

• 0 7 F C • 

DC 

2 

* 4F1 3 * 

DC 

2 

•BFOO* 

DC 

2 

•2000* 

DC 

2 

•0001 * 

DC 

2 

•CFFF* 

DC 

2 

* FBFO • 

DC 

2 

•2000* 

DC 

2 

* 07FC• 


R7 * CPL K3 + K7 

GO TO RETURN RuUTINe (RAM2 PRESENT) 


R7 5 R7 LEFT 5n1 FI i 

GO TO RETURN RuUTINe (RAM2 PRESENT) 


00 <- 03 


Q <-00 ♦ U 


D3 s DU + Q 


RAMS <- ALU <~ B7 


ALU <- tii <- RaM8 

SHIFT LEFT <- aOR <- CPL bl 


******* 

* 


******************************************* 


CM2 PASCNT+SAF-1 
bNt TITl5 
LNJ S66 * <PRCRLF 
CALL ZVSTCiMSGSR 


1ST PASS? 

NO 

YES. PR £ NT C.K./L.F. 
PRINT MESSAGE 


OF 80 
13 AC 

9870 0800 
9F40 04AO 
9870 0080 
9F40 04AA 


8740 0498 



CALL 

2V$TC*MSGSQ 

TIT15 

LOR 

SR 1»s2 *0800• 


STR 

SKI*5PHADR 


LOR 

SRI *-2*0080• 


STR 

SKIiSPHCOD 

* 



* 




CM2 

RAM2FL 


bNE 

TIT 400 


LAb 

SB2 *BUF F3 


LOR 

SRI»52»0bFF» 


STR 

SRI.aCSUE 


LOR 

SR 1«-2 * ObF C * 

T1T20 

IU 

-SRI *<QUTAOR 


LOV 

SR2*=-16 

TIT30 

10 

♦ Sb2 * <0U1OAT 


blNC 

SR2 * >TlT 30 

* 



* 




CL 

TSTCNT 


SPLASH AOOR FQk RAMi 
SPLASH MICROCODE FOr r A M1 


KAM2 PRESENT? 

YES 

RETURN ROUTINE (RAMi ONLY) 

aCS LASI LOCATION 

RETURN ROUTINE 1ST LOCATION 

wCS AOOR FOR RETURN ROUTINE 

TO COUNI 16 LOCATIONS 

LOAD REIUKN ROUTINE INTO WCS 

bRANCH IF ALL LOCATIONS NOT LOADED 


CLEAR TESI COUNTER 

IF O.K. NUT PRINTED IN 5 SEC* THE COUNTER 
NO. SHOWS WHICh TESj THAT FAILS 


0Q3788 

003789 

10Q9 

OF 7F 


* 

NQP 

>S-1 


003790 

003791 

100A 

8000 

149b 

* 

10 

<SPHADK,<OUTAD« 

aCS 1ST ENTRY LOCATION 


100C 

0000 

14A2 




003792 

100E 

8AC0 

0491 


INC 

TSTCNT 

BUMP TEST COUNTER 

003793 

1010 

ABCO 

FFAO 


LAB 

SB2 * 1 MCI 

FETCH MICROCODE R7 c R3 

003794 

1012 

E3C0 

00F2 


LNJ 

SB6 * 11T500 

CHECK FUR KAM2 PRESENT 

003795 

1014 

E3C0 

FBED 


LNJ 

SB6.CSB10 

LOAD WCS 

003796 

1016 

E3C0 

FBF4 


LNJ 

SB6*CSB20 



STARTS TEST HERE 


003800 

1018 

9840 

0483 


LOR 

SR 1 * SPHCQO 

SPLASH MICROCODE 


003801 

10 1A 

9F40 

0005 


STR 

sRi »rn 40 




003802 

iOlC 

3C05 



LOV 

SK3*s5 

INITIALIZE R3 



003803 

003604 

1010 

7C05 


* 

LOV 

SR7 ♦ » 5 

INITIALIZE R7 



003605 




* 






003606 

003807 

003608 

101E 

E3C0 

FA78 

£ 

LNJ 

SB6fSRT210 

ENABLE WCS AND 

STATUS 

CHECK 




* 






003809 

1020 

0000 


TIT 40 

RESV 

1»0 

SPLASH. tRRQR 

IF U.K* 

NO 1 

003810 




* 


IN 5 SEC 



003811 

1021 

700A 



CMV 

SR7 *510 

ERROR? 







TITLE 

CPFS4- 

. •REV A* 




PAGE 43 

003b 1 4 

1024 

0981 

OODO 


bNE 

Til 460 

Ytb. RtPOKT EkROR 

003b i 3 




* 




003b14 




* 




003b13 




* 




003b16 




* 




003617 




# 




003b1b 




* 

TtST 2 



003619 




* 




003620 




* 




003621 

1U24 

OF 7F 



NOP 

>$-l 


003624 




* 




003623 




* 




003624 

1025 

6000 

149b 


10 

<5PHA0R * <OUTAOR 

wCS 1ST ENTRY LOCATION 


102 7 

0000 

14A2 





00362!? 

1029 

6 ACO 

0476 


INC 

ISTCNT 

BUMP Tb^T COUNIER 

003626 

102b 

ABCO 

FF89 


LAB 

$B2*IMC2 

FETCH MICROCODE R7 = R7 ♦ K3 4- 1 

003627 

1020 

E3C0 

0007 


UMJ 

$b6 * T IT500 

CHECK FOR RAM2 PRESENT 

003626 

1021- 

t3CQ 

FBD2 


LNJ 

$B6 * CSb 10 

LOAO WCi> 

003629 

1031 

13C0 

FB09 


LNJ 

$b6* CSB20 


003630 




* 




003631 




* 

STARTS TEST HERE 


003634 




* 




003633 

1033 

9840 

0468 


LOR 

iRlibPHCOO 

SPLASH MlCROCOuE 

003634 

1035 

9F40 

0005 


STR 

$R1*TIT50 


003636 

103 7 

3C05 



LDV 

$R3*=5 

INITIALUt R3 

003636 

1038 

7 CO 5 



LOV 

$ R 7 * s 5 

INITIALIZE R7 

003637 




* 




003636 




* 




003639 

1039 

E3C0 

FA50 


LNJ 

$B6*SKT21Q 

ENABLE WO ANO STATUS CHECK 

003640 




* 




003641 




# 




003644 

103b 

0000 


TIT50 RESV 

1*0 

SPLASH. ERROR IF O.k. NO! PRINTED 

003643 




* 



IN 5 SEC 

003644 

103C 

7DQb 



CMV 

$R7, = U 

ERROR? 

003646 

1030 

0981 

00B5 


bNL 

TIT 460 

7ES. REPORT ERROR 

003646 




* 




003647 




* 




003646 




* 




003649 




* 

TEST 3 



003650 




* 




003651 




* 




003652 

103F 

OF 7 F 



NOP 

> S-1 


003653 




* 




003654 




* 




003655 

1040 

8000 

149B 


10 

<bPHAOR*<OUTADR 

WCS 1ST ENTRY LOCATION 


1042 

0000 

14A2 





003656 

1044 

8AC0 

0456 


INC 

ISTCNI 

bUMP TE^T COUNIER 

003657 

1046 

ABCO 

FF72 


LAB 

$B2* 1HC3 

FETCH MICKQCODl R7 * CPL K3 ♦ R7 

003656 

1046 

E3CQ 

OOBC 


LNJ 

4>b6* 1 IT500 

CHECK FUR RAM2 PRESENT 

003659 

104A 

E3C0 

FBB7 


LNJ 

$b6*CSblO 

LOAD WCS 

003660 

104C 

E3C0 

FBBE 


LNJ 

$B6 * CSB20 


003661 




* 




003662 




* 

STARTS TEST HERE 


003663 




* 




003664 

104t 

9840 

0440 


LOR 

SR 1 * bPHCOO 

SPLASH MICROCODE 

003665 

1050 

9 F 40 

0005 


STR 

SRl* TI160 


003666 

1052 

3C05 



LOV 

$R3*=5 

INITIALIZE R3 

003667 

1053 

7C05 



LOV 

$R7*=5 

INITIALIZE R7 

003666 




# 




003669 




* 




003670 

1054 

E3C0 

FA42 


LNJ 

$B6 * SRT210 

ENABLE WCS ANO STATUS CHECK 

003671 




* 




0036/2 




* 




003673 

1056 

0000 


TIT60 KLSV 

1*0 

SPLASH. ERROR IF O.K. NOT PRINTED 

003674 




* 



IN 5 SEC 

003676 

1057 

7 OFF 



CHV 

$R 7 * = *1 

ERROR? 

003676 

1058 

0981 

009 A 


bNL 

11T460 

YES. REPURT EkROR 

003677 




* 




003676 




* 




003679 




* 

TEST 4 



003660 




# 




003681 




* 




003682 

105 A 

0F7F 



NOP 



003683 




# 




003684 




* 




003685 

105b 

8000 

149B 


10 

<sphaor * <outaor 

wCS 1ST ENTRY LOCATION 


1050 

0000 

14 A2 





003686 

105F 

8 ACO 

0440 


INC 

TSTCNI 

BUMP TEi>T COUNTER 

003687 

1061 

ABCO 

FF5B 


LAb 

$B2 * T MC4 

FETCH MiCKOCODt R7 s R7 LEFT SHIFT 

003686 

1063 

E3C0 

00A1 


LNJ 

$06*111500 

CHECK FOR RAM2 PRESENT 

003689 

1065 

E3CQ 

FB9C 


LNJ 

$B6 * CSB10 

LOAO WCS 

003 690 

1067 

E3CG 

-FbA3- 


LNJ 

$b6*CSB2G 


003891 




* 




003692 




* 

STARTS TLbT HtKt 


003893 




* 




003694 

1069 

9840 

0432 


LOR 

$Rl*bPHCOO 

SPLASH MICROCGuE 

003695 

106b 

9F40 

0004 


bTR 

$R1*11170 


003696 

1060 

7C05 



LOV 

$R7,=5 

INITIALIZE R7 

003697 




* 




003696 




* 




003699 

106t 

6 3 CO 

FA28 


LNJ 

$B6 * bRT 210 

ENABLE WC5 ANO STATUS CHECK 

003900 




* 




003901 




# 




003902 

1070 

0000 


TIT70 RESV 

1*0 

SPLASH. tRROR IF O.k* NO! PRINTED 

003903 




* 



IN 5 SEC 

003904 

1071 

700A 



CHV 

$R7 * = 10 

ERROR? 

003905 

1072 

0961 

0080 


BNL 

111460 

YES. RtPORT ERROR 

003906 




* 




003907 




# 




003906 




* 




003909 




* 

TEST 5 



003910 




* 




003911 




* 




003912 

1074 

0 F 7 F 



NOP 

>$-l 


003913 




* 




003914 




# 




003915 

1075 

8000 

149B 


10 

<SPHAOR♦<OUTADR 

WCS 1ST LOCATION 


1077 

0000 

14A2 





003916 

1079 

8AC0 

0426 


INC 

TbTCNT 

BUMP TEi>T COUNTER 

003917 

107b 

ABCO 

FF45 


LAb 

$B2 * TMC5 

FETCH MICROCODE 0 <- R3 

003918 

1070 

E3C0 

FB84 


LNJ 

$b6 * CbblO 

LOAD WCi> 

003919 

107F 

E3C0 

FB8B 


LNJ 

$B6♦C5B20 


003920 




* 






TITLE 

CPFS4i 

» 1 REV A* 




PACE 44 


003921 





* 





0G3922 

1081 


FF43 


LAB 

$62 * T MC6 

FETCH MICROCODE RO <. R3 


003923 

1083 

FB7E 


LNJ 

SB6.CSB10 

LOAD WCS 


003929 

1085 

t3C0 

FB85 


LIMJ 

$B6 * CSB20 



003925 





* 





003929 





* 





003927 

108 7 

ABCO 

FF41 


LAB 

$B2 t TMC7 

FETCH MICROCODE Q <- RO ♦ Q 


003926 

1089 

E3C0 

FB78- 


LNJ 

$B6 fCSblO 

LOAD WCS 


003929 

108b 

E3C0 

FB7F 


LNJ . 

$B6*CSB2G 



003930 





* 





00393i 





* 





003932 

1080 

ABCO 

E3C0 

FF3F 


LAb 

$62♦TMC8 

FETCH MICROCODE R3 : RO ♦ 0 
CHECK FOR RAM2 PRESENT 


003933 

108F 

0075 


LNJ 

$B6 » TIT 500 


003934 

1091 

E3C0 

FB70 


LNJ 

$B6 *CSB1U 

LOAD WCS 


003935 

1093 

E3C0 

FB77 


LNJ 

$66.CSB20 



003936 





* 





003937 





* 

ST ART 5 TEST HERE 



003936 





# 





003939 

1095 

9840 

0406 


LDR 

SRltSPHCOD 

SPLASH MICROCODE 


003940 

1097 

9F40 

0004 


STR 

$R 1 * 11180 



003941 

1099 

3C05 



LDV 

SR3*s5 

INITIALIZE R3 


003942 





# 





003943 





* 





003944 

109A 

E3C0 

F9pc 


LNJ 

$B6«SRT210 

ENABLE WCS AND STATUS CHECK 


003945 





* 




003946 

109C 

0000 


TIT80 RESV 

1*0 

SPLASH. ERROR IF 0. K. NOT PRINTED 

003947 





* 



IN 5 SEC 


003946 





* 




003949 

1090 

300F 



CMV 

$R3 * = 15 

ERROR? 


003950 

109L 

0981 

0054 


BNE 

TI T460 

YES. REPORT ERROR 


003951 





* 





003952 





* 





003953 





* 

TEST 6 




003954 





# 





003955 





* 





003956 

10A0 

0 F 7 F 



NOP 

>$-l 



003957 





* 




003956 





* 





003959 

10A1 

8000 

149B 


10 

<SPHADR.<OUTADR 

WCS 1ST ENTRY LOCATION 



10 A3 

0000 

14A2 





003960 

10A5 

8 ACO 

03FA 


INC 

1STCNT 

BUMP TEM COUNTER 


003961 

10A7 

ABCO 

FF29 


LAB 

$62♦1MC9 

FETCH MICROCODE RAMq <- ALU <- 

67 

003962 

10A9 

E3C0 

FB58 


LNJ 

$B6 .CSB10 

LOAD WCS 


003963 

lOAb 

E3C0 

FB5F 


LNJ 

$B6.CSB2Q 



003964 





* 





003965 

10A0 

ABCO 

FF2 7 


LAB 

$B2 * TMC10 

FETCH MICROCODE 


003966 

1 OAF 

E3C0 

0055 


LNJ 

$B6 » TlT500 

CHECK FOR RAM2 PRESENT 


003967 

lObl 

E3C0 

FB50 


LNJ 

$b6.CSblO 

LOAD WCS 


003966 

10B3 

E3C0 

F657 


LNJ 

$B6 *CSb20 



003969 





* 





003970 





* 

STARTS TEST HERE 



003971 





* 





003972 

1065 

9840 

03E6 


LOR 

SRUSPHCOt) 

SPLASH MICROCODE 


003973 

10b 7 

9F40 

0013 


STR 

$R l ♦ f Jl90 



003974 

1069 

ICO 5 



LOV 

$R1*=5 



003975 

J 

LOBA 

8740 

03CF 



TMP4 



003976 

J 

LOBC 

9F40 

03CE 


$R 1 * T MP4+1 



003977 

] 

LOBl 

FCCO 

03CC 


LOB 

$67.TMP4-$AF+2 

INITIALIZE B7 


003976 

J 

LOCO 

1CFF 



LOV 

SRI1 



003979 

5 

LOCI 

9F40 

03C8 


STR 

SRI»TMP4 



003980 

1 

L0C3 

9870 

FFF4 


LOR 

$R1♦sZ * FFF4• 



003981 

] 

L0C5 

9F40 

03C5 


STR 

SRI* TMP4+1 



003982 

003983 

] 

L0C7 

ACCO 

03C3 

* 

LOb 

SB2 ♦ T MP4-SAF+2 

DATA TO COMPARl 


003984 





# 





003985 

003986 

003987 

10C9 

E3C0 

F9CD 


LNJ 

SB6 * SRT 210 

ENABLE WCS AND STATUS CHECK 


10 C6 

0000 


TIT90 RE5V 

uo 

SPLASH. tRROK IF 0. K. NUT PRINTED 

003988 





* 



IN 5 SEC 


003989 





* 





003990 

10 CC 

9840 

0000 p 


LOR 

SR1*4VSAF 



003991 

1 OCL 

1002 



CMV 

$R1»= 2 

LAF? 


003992 

10CF 

090A 



bE 

>T I T100 

YES 


003993 

1000 

FFCO 

03B9 


STB 

SB7 «lMP4 

NO 


003994 

1002 

9840 

03B7 


LOR 

SRI*1 MP4 



003995 

1004 

9970 

FFF4 


CMR 

SR1*=Z*FFF4» 

MATCH? 


003996 

1006 

0901 

0005 


BL 

TITUO 

YES 


00399 7 

1008 

0F9B 



b 

>T1T460 

NO. REPORT ERROR 


003996 

1009 

FDD2 


T I T 100 cm 

Sb7*=Sb2 

MATCH? 


003999 

100A 

0981 

0018 


bNE 

TIT460 

NO. REPORT ERROR 


004000 


LODC 

0681 

0016 

TIT110 bCF 

T I T460 

REPORT ERROR IF CARRY blT NOT 

SET 

00409-1 





* 




004002 





* 





004003 





* 





004004 





* 

TEST 7 




004005 





* 





004006 





* 





004007 

lout 

0F7F 



NOP 

>$-l 



004006 





* 





004009 





* 





004010 





* 

ZERO NA 

F1LL0 TEST 



004011 





* 




004012 





* 





004013 

100F 

OF 8 1 

FDA4 


b 

ZNT1U 

bKANCH 10 ZERO NA FIELD TEST 


004014 





# 




004015 





* 





004016 





* 





004017 





TIT 390 CALL 

zv$tc*msgok 

NO ERROR. PRInT m Q,K.” 



10 L1 

FBCO 

0003 







1063 

D380 

0000 X 







lots 

0F80 








1066 

1389 







004016 





* 





004019 





* 





004020 

1 0L7 

0F8 1 

0025 


b 

E0P 

DONE 


004021 





* 





004022 





* 





004023 





* 





004024 





* 





004025 





* 





004026 





* 





004027 





* 





004026 


10L9 

ABCO 

03Et 

T1T400 LAB 

SB2♦BUFF4 

RETURN KOUTINt (KAM2 PREStNT) 




f 

'*V_ V 




TITLfc 

CPFS4i 

> • REV A• 




PAGE 45 

00*029 

iolb 

9870 

OFFF 


LDR 

*R1*=2»0FFF» 


004030 

IOLD 

9F40 

03B0 


STR 

SRl,wCSUE 

wCS LASI LOCATION 

004031 

1 OtF 

9870 

OFFC 


LOR 

$Rn = Z«OFFC» 


004032 

10F 1 

QF81 

FFOO 


B 

TIT2U 


f 0Q4033 





# 



I 004034 





* 



004035 





* 



004036 





* 



004037 

10F3 

D840 

03AC 


TIT460 LDR 

$R5♦TSTCNT 

R6 SHOWS WHICH TEST THAT FAILS 

004036 





CALL 

2V$EK*TI1iMSGTl1 

ERROR "Hi" 


10F5 

FBCO 

0003 






10F7 

D380 

0000 

A 





10F 9 

OF 80 







10F A 

1102 







10FB 

1481 






004039 





CALL 

2V$T* MSG4 

PRINT »' * REPLACE MB * m 


10FC 

FBCO 

0003 






10FL 

D380 

0000 

X 





1100 

OF 80 







1101 

1319 






004040 

1102 

0F7F 



Til NOP 

>S-1 

** ERROR ** 

004041 





* 


TRANSPARENT MODE INTERFACE ERROR 

004042 

1103 

OF 81 

0009 


b 

LOP 


004043 





# 



00404** 





# 



004046 





* 



004046 





# 



004047 





* SUBROUTINE TO MODIFY MICROCODE 

•S NEXT ADDR FItLD GOING TO RtT URN ROUTINE 

00404b 





* WHEN RAM2 

IS PRESENT 


004049 





* 



' 004060 

1105 

89C0 

0390 


TIT500 CM2 

RAM2FL 

KAM2 PRtStNT? 

004051 

1107 

0985 



BNL 

>T 1 T 5 10 

YES 

004052 

1108 

9870 

OBFC 


LDR 

SR 1 * = 2 *OBF C * 

NO. MODIFY ADbR TO GO TO RETURN ROUTINE 

004053 

11OA 

9F42 

0003 


STR 

SR 1 * *B2•3 


004054 

HOC 

8386 



TIT510 JMP 

SB6 

RETURN 

004056 





* 



004056 





# 



004057 





# 



00405b 





* 



004059 





A 



004060 





A 



004061 





* 



004062 





* LND-QF-PASS 


004063 





*#*#***#*#*#* 


004069 





* 



004065 





* 



004066 





* 



004067 

HOD 

8A80 

148F 


top INC 

<PASCNT+SAF-1 

BUMP PASS COUNf 

00406b 





* 



004069 





* DISPLAY PASS COUNT IN B4 IN DECIMAL 

004070 





* 



004071 

110F 

F800 

148F 


LDR 

*R7*<PASCNT+SAF-1 


004072 

mi 

A870 

0003 


LDR 

SR2 * = 3 


004073 

1113 

8756 



DIGIT CL 

= $R6 


004074 

1114 

F37CF 

1100 A 


DIV 

SK7 * s 10 


i • x 004075 

1116 

tAD5 



SRM 

SR6^=$R6,=2*00DF* 


1 

1117 

OOOF 






| 004076 

1118 

5054 



SCR 

$R5 * 4 


" 004077 

1119 

2 7 7 A 



BDtC 

Sk2 » >DIG1T 


00407b 

111A 

PFOO 

1490 


STR 

SR5,<B4DCML*$AF-1 


004079 

me 

CC80 

1490 


LDB 

SB4 * <B4DCML 

** B4 RESERVED FOR PASS COUNT DISPLAY ** 

004080 





A 



004081 





* TYPE PASS 

COUNT AND "3 MIN DONE 

" IF 3 MINUTES mRE Up 

004082 





* 



004083 





A 



004084 

Hit 

9800 

0000 

X 

LDR 

SRI*<2HRTCC 

ARE 3 MINUTES uP? 

004086 

1120 

9970 

AB9F 


CMR 

SR 1 1 = 2 1 AB9F * 

AB9F = 43935 ( DtC) = 65535-21600(DEC) . 

004086 





* CLOCK SET 

INITIALLY TO FFFF=65535(DEC). 21600 TICKS = 3 MINUTES. 

004087 

1122 

03 IB 



BO 

>GLEN 

3 MINUTES NOT uP YET 

004088 





* 



004089 

1123 

1CFF 



LDV 

SR 11 

SET UP FOR NEXT 3 MIN iNTtRVAL 

004090 

1124 

9F00 

0000 

X 

STR 

SR 1 * <2HRICC 


004091 





CALL 

2VSTC * M5G9 

TYPE PASS MESSAGE 


1126 

FBCO 

0003 






112a 

0380 

0000 

X 





112A 

0F8O 







112b 

141A 






004092 





CALL 

2VSTD,PASCNT*$4F-1 

TYPE THt COUNT 


112C 

FBCO 

0003 






112t 

0380 

0000 

X 





1130 

OF 80 







H31 

14-84- 






004093 





CALL 

eV$TC*MSG10 

TYPE M 3 MIN DONE" 


1132 

FBCO 

0003 






1134 

0380 

0000 

X 





1136 

0F80 







113 7 

141 F 






004094 

113b 

0004 



RTCN 



004O96 

1139 

8700 

1493 


CL 

<RED 

CLEAR KtD ERROk BEFORE QUIT 

004096 





* 



004097 

113b 

OF 80 

0107 


b 

<DONt 

** TESUNG COMPLETE ** 

00409b 





* 



004099 





* 1YPt PASS 

CUUNT 


004100 





* 



004101 





GLEN CALL 

2V$TC*MSG9 

TYPE PASS MESSAGE 


11 3D 

FBCO 

0003 






11 3F 

0380 

0000 

X 





1141 

0F80 







1142 

141A 






00410*: 





CALL 

2VSTo,PASCNT^SAF-1 

TYPE THt COUNT 


1143 

FBCO 

0003 






1145 

0380 

0000 

X 





1147 

OF 80 







114b 

146F 






004103 

1149 

OF 60 

0135 


B 

<NXTPAS 

REPEAT IEST, Du NLXj PASS 

004104 





* 



004105 





* 



004106 





* 



I 004107 





* 



1 004108 





* S U B R 0 

U T 1 N E S 


004109 





# 



004110 





* 



004111 





* NAK ERROR 

(WCS MOTHER BOARD FAULT) 



TITLE 


CPF $4 


♦REV A• 
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004112 





* 



004X13 





* CALLING 

sequence; 


004114 





* LNJ 

SB6♦<NAKERR 


004116 





# 



004116 

11 4p 

9F40 

0033 


NAkERR 5TR 

SR 1 * NAK.EK4 

SAVE Ski 

004117 

1140 

EFCO 

□ OOP 


5Tb 

OEC 

SB6 *NAKEN2 


004116 

114F 

88C0 

OOOB 


NAKEK2+SAF-1 

ADJUST REPORTING APRS 

004119 

1151 

68 C0 

0009 


PEC 

NAKER2+SAF-1 

004120 

1153 

9800 

0000 

X 

LOR 

$R1*<ZV$AF 


004121 

1155 

1883 



buoo 

$R1 * >NAKER1 

(ZVSAFsl IF SAF) 

00412c 

1156 

88C0 

0004 


DEC 

NAKEK2 + SAF-1 

DECREMENT AGAIN IF LAF (ZV$AFs2) 

004123 





* 


004124 

1158 

0380 

0000 

X 

I^ARERl LNJ 

SB5 *<ZVSER 

ERROR "NAK" 

GQ4i2i> 

11 5 A 

OF 83 



B 

>NAKLK3 

RETURN PRUM ZV*ER 

004126 

115b 

0000 



NAKER2 ktbV 

SAF *U 

REPUKTING APRS - l/o INSTRUCTION 

004127 





# 


PRECEDING THIS ADRS CAUSED ERROR 

004126 

115C 

1315 



oc 

<MSG2 

"NAK" 

004129 

1150 

9840 

0021 


NAKER3 LOR 

$kl*NAKEK4 

RESTORE SKI 

004130 





* 



004131 

115F 

FtiCQ 

0003 


CALL 

cVST *HSG4 

PRINT " * REPLACE MB *” 


1161 

0380 

0000 

X 





1163 

OF 80 







1164 

1319 






004132 

1165 

8040 

0019 


iu 

NAKEK4 * <iNST AT 

INPUT SIATUS 


1167 

0000 

14A6 




004133 

1169 

0709 



BiUT 

>NKEK3B 


004134 

116A 

FBCO 

0003 


NKER3A CALL 

ZV$ER*NKCR3A*M5G2 

ERROR *NAK» 


116C 

0380 

0000 

X 





116E 

OF 80 







116F 

116A 






004136 

1170 

1171 

hhl 



b 

>NKEk3C 

INPUT S1 AlUS SHOULD NEVER BE NAK ♦ D 

004136 





* 


REPLACE WCS MOTHER BOARD* 

004137 





# 


004136 

1172 

FBCO 

0003 


NKER3B CALL 

ZVST *MSGI1 

PRINT " STATUS s" 


1174 

0380 

0000 

X 





1176 

OF 80 







1177 

1425 






004139 

1176 

FBCO 

0003 


CALL 

2VSTHZ * NAKER4 

PRINT SlATUS RbAP 


11 7 A 

0380 

0000 

X 





117C 

OF 80 







1170 

117F 






004140 





* 



004141 

11 7t 

8386 



NKER3C UMP 

SB6 

RETURN 

004142 





# 



004143 

117F 

0000 



NAKER4 RE5v 

1*0 

SAVE ARtA FOR Kl ANp STATUS 

004144 





* 


004146 





# 



004146 





* ACK ERROR 

(WCS MOTHER BOARD 

FAULT) 

004147 





X 



00414t> 





* CALLING 

sequence; 


004149 





* LNJ 

SB6 * <ACKERK 


004150 





# 



004151 

1180 

9F40 

0033 


ACKERR 5TK 

$R 1 *ACKER4 

SAVE Ski 

004152 

1162 

EFCO 

0000 


5TB 

Sb6 * ACK.ER2 


004153 

1164 

88 C0 

OOOB 


OEC 

ACKEK2♦SAP-1 

ADJUST REPORTING APRS 

004154 

1186 

88C0 

0009 


OEC 

ACKEK2+SAF-1 

004155 

1188 

9800 

0000 

X 

LOR 

SR 1 * <ZVSAF 


004156 

118A 

1B83 



BOOP 

$Ri*>ACKERl 

(ZVSAF=1 IF SAF) 

004157 

118b 

88 C0 

0004 


PEC 

ACKEK2+SAF-1 

DECREMENT AGAIn IF LAF (ZVSAPsZ) 

004156 





* 


004159 

1180 

0380 

0000 

X 

ACKER1 LNJ 

$65*<2V$tK 

ERROR "ACK." 

004160 

118F 

OF 83 



b 

>ACKt-R3 

RETURN FRUM ZV*Ek 

REPORTING APRS * I/O INSTRUCTION 

004161 

1190 

0000 



ACKER2 RE5V 

SAP * 0 

004162 




* 


PRECEDING THIS APRS CAUSED ERROR* 

004163 

1191 

1317 



PC 

<M5Gj 

"ACK” 

004164 

1192 

9840 

0021 


ACKER3 LPR 

SRI * ACK.ER4 

RESTORE SKI 

004165 





* 


PRINT " * REPLACE MB *" 

004166 

1194 

FBCO 

0003 


CALL 

ZVST * HSG4 


1196 

D380 

0000 

X 





1198 

0F80 







1199 

1319 






004167 

119A 

8040 

0019 


10 

ACKEK4*<1NSTAT 

INPUT 51 A 1 US 

119C 

0000 

1 4A6 




004166 

ll9t 

0709 



biOT 

>AKER3B 


004169 

119F 

FBCO 

-00-03- 


AKER3A CALL 

ZV$EK*AKER3A*M5G2 

ERROR "ACK” 


1 X A1 

0380 

0000 

X 





11 A3 

OF 80 







11A4 

119F 







11A5 

1315 





INPUT STAIUS SHOULD NEVER BE NAK•P 

004170 

004171 

11A6 

0F80 



B 

* 

>AKEK3C 

REPLACE WCS MOTHER BOARD. 

004172 





* 


004173 

11A7 

FBCO 

0003 


AKER3B CALL 

ZVST *MSG11 

PRINT " STATUS =" 


11A9 

0380 

0000 

X 





1 lAb 

OF 80 






004174 

11 AC 

1425 



CALL 

ZVSTHZ * ACKER4 

PRINT SIAIUS RbAP 

11 AO 

FBCO 

0003 




■' 

11AF 

0380 

0000 

X 





1161 

OF 80 







11 B2 

11B4 






004175 





* 



004176 

1103 

8386 



AKER3C UMP 

SB6 

RETURN 

004177 




* 



004176 

1104 

0000 



ACKER4 RE5V 

1*0 

SAVE AREA FOR Kl ANp STATUS 

004179 





# 


004180 





* 



004181 





* STATU5 ERROR (WCS HOTHE^ BOARP FAULT) 

004182 





* 



004183 





* CALLING 

sequence; 


004184 





* LNJ 

$66 * <STERR 


004185 





* STATUS REAP 15 IN R4 (15) 


004186 





* STATUS 

"SHOULD BE" IS IN R5 

(Sb) 

004187 





* (IF R5*FFFF* PON»T PRINT 

STATUS Sb) 

004186 





* 





/" % 
'j 




title. 

CPF S4i 

» 'REV A» 
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004189 

1 lbb 

9F40 

0039 


STERR STR 

SRHSTLRR4 

SAVE SRI 


0Q419U 

Ub7 

LFCO 

OOQF 


6 TB 

$06 * S1LRR2 



004191 

11B9 

88C0 

0000 


dec 

STERR2+SAF-1 

ADJUST REPORTING A0R5 


004192 

11 Bb 

88 C0 

OOOB 


DEC 

STLKK2 + 3.AF-1 


004193 

11 BO 

9800 

0000 

X 

LDR 

SR It <2VSAF 



004194 

11 BF 

1B83 



BUDD 

SR 1 * >STLRR 1 

(ZVSAFs1 IF SAF) 


00419b 

11 C0 

88 C0 

0006 


otc 

STLRK2+SAF-1 

DECREMENT AGAIN IF LAF 

(2V$AF=2) 

00419b 

11 C2 

9840 

Q02C 


STLRR1 LOR 

SRI * S! tRR4 

RESTORE SRI 


004197 





* 




004198 

11C4 

0380 

0000 

X 

LNJ 

SBb♦<ZVSLR 

ERROR "STATUS 1 ' 


004199 

11 C6 

0F83 



B 

> ST LkR3 

RtTURN FRUM ZV*ER 
REPORTING APRS - REFER 


004200 

11C7 

0000 



STLRR2 RtSV 

iAF * 0 

TO THIS ADRS 

004201 





* 


IN LISTING FOR COMMENT, 


004202 

1108 

1385 



oc 

<MSGb 

"STATUS" 


004^03 





# 




004204 

11C9 

FBCO 

0003 


STLRR3 CALL 

2 VST *MSG6 

PRINT " IS" 



1 lCb 

0380 

0000 

X 






1 ICo 

OF 80 








11 CL 

1412 







00420b 

11CF 

CF 40 

001 F 


STR 

SR4 * JTLRR4 



004206 

1101 

FBCO 

0003 


CALL 

2 VSThZ * ST LRR4 

PRINT SIAIUS RlAD 



1103 

0380 

0000 

X 






110 b 

0F80 








1106 

1 ILF 







004207 

11D 7 

0970 

FFFF 


c m 

$R5*5Z*FFFF • 



004208 

1109 

090F 



bL 

>SThK3A 

DON'T PRINT STATUS SB 


004209 





* 



004210 

110A 

FBCO 

0003 


CALL 

2VST % MSG 7 

PRINT "» SB" 



hoc 

0380 

0000 

X 






not 

0F80 








11 OF 

141b 







004211 

11 L0 

OF40 

ooot 


STR 

SRb•ST LRR4 



004212 

1112 

FBCO 

0003 


CALL 

2VS T h£ *STLRR4 

PRINT SIAIUS SrtOULD BE 



11L4 

1 1 Lb 

11L 7 

0380 
OF 80 

11LF 

0000 

X 





004213 




bTLR3A CALL 

2VST,MSG4 

PRINT " * REPLACE MB 

*« 


11 L8 

FBCO 

0003 






11LA 

0380 

0000 

X 






UtC 

OF 80 








11 to 

1319 







004214 





* 




00421b 

UEt 

8386 



JMP 

SB6 

RtTURN 


004216 

lltF 

0000 



bTLRR4 RLbv 

HO 

TEMP STURt FOR RHR4.R5 

004217 





* 




004218 





* 




004219 





* SUBROUTINt 

TO PRINT MS04 



004220 





* 




004221 





* CALLING 

StQULNCt; 



004222 





* LNJ 

SB6 * <PRRMb 



004223 





* 




004224 

11 FO 

FBCO 

0003 


PRRMB CALL 

2 VST *MSG4 

PRINT " * REPLACE MB 

*» 


11 F 2 

0380 

0000 

X 






11F4 

0F80 








11 f b 

1319 







00422b 

HFb 

8386 



JMP 

SB6 

RtTURN 


004226 





* 




004227 





* 




004228 





* SUBROUT 1Nt 

TO PRINT MSG4A 



004229 





* 




004230 





* CALLING 

StQULNCt; 



004231 





* LNJ 

SB6 »<PRROb1 



004232 





* 




004233 

11F7 

FBCO 

0003 


PRRDB1 CALL 

ZVST »MSG4A 

PRINT " * REPLACE DB 

1 *« 


11 F9 

0380 

0000 

X 






11 Fb 

0F80 








11 FC 

1322 







004234 

UFO 

8386 



JMP 

SB6 

RtTURN 


00423b 





# 




004236 





* 




004237 





* SUBROUTINt 

TO PRINT MSG4B 



004238 





* 




004239 





* CALLING 

slqulncl; 



004240 





* LNJ 

SB6i<PRRDB2 



004241 





* 




00424-2 

11 Ft 

FBCO 

0003 


PRRQB2 CALL 

2VST»MSG4B 

PR-INT " * -REPLACE DB 

2 - *.i» 


1200 

0380 

0000 

X 






1202 

0F80 








1203 

132C 







004243 

1204 

8386 



JMP 

SB6 

RETURN 


004244 





* 




00424b 





* 




004246 





* SUBROUTINt 

TO PRINT MSG4C 



004247 





* 




004248 

004249 





* CALLING 

* LNJ 

StQULNCt; 

SB6»<PRMAY 



0Q42b0 





* 




0042b1 

120 b 

FBCO 

0003 


PRMAY CALL 

2VST♦MSG4C 

PRINT " r MAY BE WCS 

MB *” 


1207 

0380 

0000 

X 






1209 

0F80 








120A 

1336 







0Q42b2 

1208 

8386 



JMP 

SB6 

RETURN 


0042b3 




# 




0Q42b4 





* 




0042bb 





* SUBROUTINt 

TO PRINT STATUS 



004256 





* 




004257 





* CALLING 

StQULNCt; 



004258 





* LNJ 

SB6 * <PRST S 



004259 





* 



004260 

120C 

FBCO 

0003 


PRSTS CALL 

2 V$T *MSG11 

PRINT » STATUS 



120 L 

0380 

0000 

X 






1210 

OF80 








1211 

142b 







004261 

1212 

CF40 

0010 


STR 

SR4 tPRSTSi 

SAVE R4 




TITLE CPF54, •REV A» 


PACE 48 


004262 

1214 

8754 




CL 

*$R4 


004263 

1213 

8054 




10 

=$R4,<INSTAT 



1216 

0000 

14A6 






004264 

1218 

CF40 

0006 



STR 

$R4,pRSTS2 


004265 

121A 

FBCO 

0003 



CALL 

2V$Th2»PRSTS2 

PRINT STATUS 


121C 

D380 

0000 

X 






121E 

OF 80 








121F 

1224 







004266 

1220 

C840 

0002 



LDR 

$R4,PRSTS1 

RE5TQRE R4 

004267 

004268 

1222 

8386 



* 

JMP 

$66 

RETURN 

004269 

1223 

0000 



PRSTS1 

RESV 

1*0 

TEMP SAVE 

004270 

1224 

0000 



PRSTS2 

RESV 

UO 

TEMP SAVE 


00427 i 
004272 
004273 
004274 
004273 
004276 
004277 
004278 
004279 

004280 


004281 

004282 

004283 

004284 

004283 

004286 

004287 

004286 

004289 

004290 

004291 

004292 

004293 

004294 

004293 

004296 

004297 

004296 

004299 
004300 
004301 
004302 
004303 
004304 
004303 
004306 
004307 
004308 
004309 
004310 
004311 
004312 
004313 
004314 
004313 
0043 1 1> 
004317 
00431b 
004319 
004320 
004321 
004322 
004323 
004324 
004323 


1223 

1227 

1228 
122A 
122C 
1220 
122b 

1230 

1231 

1232 


8F40 000C 
0005 

FBCO 0003 
0380 0000 
0 F 8 0 
1236 

8FC0 0003 
0005 
8386 
0000 


1236 

0000 


1237 

8753 


1238 

69C0 

025D 

123A 

0992 


1236 

C870 

QFFF 

123D 

BC80 

0000 

123F 

8000 

1496 

1241 

0000 

14A2 

1243 

07FC 


1244 

8056 


1245 

0000 

14A5 

1247 

Q7FD 


1248 

LF7F 


1249 

6954 


124A 

03FA 


1246 

8386 


124C 

C870 

1FFF 

124b 

OFEF 



124F 

1251 

1252 
1254 


1233 

1257 

1258 
125a 
125C 
125b 
1260 
1261 
1262 

1264 

1266 

1268 

1269 


8740 0240 
8753 

BCCO 0000 
0F7F 


89C0 

099A 

E87Q 

69C0 

0981 

L380 

5CFC 

C873 

CF40 

FBCO 

0380 

0F8Q 

1270 


0240 

OFFF 

0242 

0020 

1225 


0000 


0003 

0000 


# 

* 

# 

* SUBROUTINE TO PRINT CR/LF 

* 

* 

* 

# 

PRCRLF SAVE PRCLSV**2 * 0005 * 


CALLING StOUENCE*. 


LNJ 


$66 * <PRCRLF 


CALL 2V$TC*NULL 


RSTR PRCL$V,=2 * 0005• 


JMP 

PRCLSV RESV 

* 

# 

NULL 
* 

# 

* OFF LINE READ BACK FROM wCS 


$66 

4,0 


KESV $AF ,u 


RDBK10 CL 
CM / 
6NE 
LDR 

RDBK15 LDb 
RD6K20 10 

61 OF 

RD6K30 IQ 

blOF 

STK 

CMR 

bLE 

JMP 

RD6K40 LDR 
b 

* 


= $R3 
RAM2FL 
>RDBk40 
$R4,=Z*0FFF» 

$o3,<2V$LR 
<SPHADR,<OUTADR 

>RDBR20 
= $R6 , <INDAT 

>KDBK 30 
$R6,$B3.+$R3 
$R3,=$R4 
>RDBK30 
$66 

$R4,=2*1FFF• 
>RDBk 1 5 


# 

* 

CL 

PRNT10 CL 
LDB 
NOP 

* 

* 

CM2 

BNE 

LDR 

CM2 

BNE 

PRNT15 LNJ 
LDV 

PRNT20 LDR 
STR 
CALL 


KTFLu 
»$R 3 

$63 »ZV$LK 
>$-l 


RAM2FL 

>PRNI 40 

$R6,s2 * OFF F• 

KTFLo 

PRNT 30 

$66,<PRCRLF 

$R3♦=-4 

$R4, ♦ $63 

$R4,PRNT 30 

2V$TH2,PRNT 30 


004326 

-12 6 A 

8A03 


INC 

s $R3 

004327 

1266 

6956 


CMR 

$R3 *-$R6 

004328 

126C 

0903 


bb 

>PRNT25 

004329 

126D 

57F4 


BINC 

$R5,>PRNI20 

004330 

126b 

OFFO 


b 

>PRNT 15 

004331 

12 6 F 

0000 


PRNT 25 HLT 


004332 

1270 

0000 


PRNT30 RESV 

l,o 

004333 

1271 

L870 

1 FFF 

PRNT40 LDR 

$R6,=2*iFFF» 

004334 




X 


004335 

1273 

89C0 

0229 

CM2 

KIFLG 

004336 

1275 

0981 

0015 

BNE 

PRNT 60 

004337 

12 77 

0F8 i 

FFE6 

B 

PRNT i 5 

00433c 




# 


004339 




* 


004340 




x print retjrn routine 

004341 




X 


004342 

1279 

8AC0 

0223 

I NC ‘ 

RTFLG 

004343 

12 7o 

0F81 

FFD5 

b 

PRNT 10 

004344 




X 


004345 

127D 

6FC0 

0200 

PRNT50 Sib 

$B3»TMP4-$AF+2 

004346 

127F 

B840 

0206 

bOR 

$R3 , 1 MP4 + 1 

004347 

1281 

6A70 

OFFO 

ADD 

$R3,~Z * OFFO• 

004348 

1283 

6F40 

0207 

STR 

$R3 , TMP4 + 1 

004349 

1285 

6870 

OFFO 

bDR 

$K3,52»0FF0» 

004350 

1287 

6CC0 

0203 

PRNT55 LDb 

$63,iMP4-$AF*2 

004351 

1289 

0F81 

FFD4 

b 

PRNT iS 

004352 




* 


004353 

1286 

BFCO 

01FF 

PRNT 60 STB 

$63, 1 MP4**$AF ♦2 

004354 

128D 

6840 

01F D 

LDR 

$R3,T MP4 + 1 

004355 

128F 

BA70 

1FF0 

ADD 

$R3,=2 * 1FFO• 

004356 

1291 

BF40 

01F 9 

STR 

$R3,TMP4+1 

004357 

1293 

6870 

1FEF 

LDR 

$R3,=Z*1FLF • 


SAVE B5*B7 

PRINT CARRIAGE RETURN/LINE FEED 

RESTORE 65,67 
RETURN 

SAVE AREA FOR o5*B7 


INDEX 

RAM2 PRESENT? 
YES 

NO. 4k WURDS 
MEMORY LOW 
SPLASH ADDR 


READ WCS 


STORE WCS READ OUT MICROCODE^ 
ALL MICROCODES STORED? 

NO 
YES 

RAM2 PRtStNT• 


8K WORDS 


OFF LINE PRINT MICROCODES IN wCS 


,/f.V. 

. 


RETURN ROUTINE FLAG 
INDEX 

MEMORY LOW 

o3 = 2V$LK IS THE 1ST LOCATION IN WCS 
CAN CHANGt B3 TO START PRINTING FOR 
LOCATIONS OTHER THAN 1ST WCS LOCATION 
RAM2 PRtStNT? 

YtS 

NO. 4k WORDS 

RETURN ROUTINE FLAG SET? 

YtS. PRINT RETURN ROUTlNt 
PRINT C.R./L.F. 

READ 

MICROCODE 
PRINT MlCKOCODt 


toUMP INDEX 

ALL MICROCODES PRINTED? 
NO. 


RAM2 PRtStNT. 8k WORDS 

RETURN ROUTINE FLAG SET? 
YtS. PRINT RETURN ROUTlNt 
NO 


StT RETURN ROUTINE FLAG 
CALCULATE RETURN ROUTINE ADDR 


CALCULATE RETURN ROUTINE ADDR 



I 
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004358 

004359 

004360 

004361 

004362 

004363 

004364 

004365 

00436b 

004367 

004366 

004369 

004370 


004371 

004374 

004375 


00437b 

004377 


004376 


004379 

004380 


1493 QFI-2 


# 

# 

# 

# 

* 

# 

* 

# 

# 

* 


>PRNT55 


MESSAGED 


1296 

1299 


129E 

12A1 


12A9 
12 AC 
12 AF 


12C2 

12C3 


120B 

12 po 

120 b 
12E1 


6370 6673 3420 
2020 7763 7320 
7465 7374 


MSG 1 


IFZ SAF-2 *LAF1 

ftXT *CPFS4 WCS TEST* 


2020 

2031 

2020 


004381 


12FE 
1301 


6061 

7365 
7469 
6F64 
6865 
6974 
686F 
6265 
2400 
7472 
6172 
6D6F 
2066 
7769 

7366 
2062 
2224 
7468 
7420 
7220 
6167 
6F 7 5 
6C77 
6265 
636F 
6572 
7374 
7562 
656E 
726F 
2020 
6167 
6F75 
6520 
6564 
7072 
7573 
6F72 


2041 

3937 

5245 

2400 

6465 

7175 

616C 

6520 

7820 

6368 

756C 

2022 

616E 

656b 

6465 

6578 

7463 

6F75 

6520 

6520 

6572 
6065 
6520 
6C64 
6179 
000A 
6E73 
6564 
2E20 
7365 
7420 
7224 
6065 

6573 
6C64 
6361 
2062 
6576 
2065 
7324 


5052 
3820 
5621 

2400 
656E 
2060 
2020 
73 77 
2073 
6420 
6622 

7370 

7420 

2020 

2073 

6820 

6C64 

2230 

3173 
726F 
73 73 
7368 
2061 
7320 
2020 
6964 
2031 
2073 
7175 
6572 

7373 

2063 

2062 

7573 

7920 

696F 

7272 


bAFl NULL 

TEXT * APK 1976 REV* AS* 


MSG 1A TEXT *M00t$« 

MSG1B TEXT ‘SEQUENTIAL MODE - HEX SWITCH SHOULD BE «p"$* 


MSG1C TEXT •TRANSPARENT MODE - HEX SWITCH SHQUcD BE tt 0 «S* 


MSG1D TEXT •THE 1ST ERROR MESSAGE SHOULD ALWAYb BE*,Z*OOOA»? 
• CONSIDERED 1ST. SUBSEQUENT ERRORS* 


MSG1E TEXT * MESSAGES COgLD BE CAUSED by PREVIOUS ERRORS&* 


004382 

1315 

6E61 

6b24 


MSG2 

TEXT 

•NAKS* 



004383 

1317 

6163 

6b24 


MSG3 

TEXT 

* ACKS * 



004384 

1319 

2020 

202 A 

2072 

MSG4 

TEXT 

t 

* REPLACE 

MB 

*s» 


131C 

6570 

6C61 

6365 







206D 

6220 

2 A24 







004385 

1322 

2020 

202A 

2072 

MSG4A 

TEXT 

• 

* REPLACE 

Ob 

1 *s* 

1325 

6570 

6C61 

6365 








2064 

2A24 

6220 

3120 








004386 

132C 

2020 

202 A 

2072 

MSG4B 

TEXT 

, 

* RtPLACE 

3b 

2 *S* 


132 F 

6570 

6C61 

6365 









2064 

2A24 

6220 

3220 







004387 

1336 

2020 

202A 

206D 

MSG4C 

TEXT 

* 

* MAY BE W 

CS 

MB *S* 


1339 

6179 

2062 

6520 









7763 

7320 

6062 









202A 

2400 








004388 

1341 

2020 

202A 

2065 

MSG4D 

TEXT 

* 

* tlTHEK W 

cs 

MB QR DB *$ 


004389 


004390 


004391 

004392 

004393 

004394 


1344 


134F 

1352 


1369 

136C 


1365 
1388 
1369 
138C 
138F 
1392 
1395 


6974 
7763 
206 F 
202 A 
2020 

7272 
6573 
7465 
206F 
6974 
6F6E 
6E65 
6061 
2020 

7273 
6C6F 
2C20 
2Q6C 
7920 
6065 
2063 
6F6E 
2400 
7374 
2400 
4F2E 
7365 
7469 
6F64 
7374 
742C 
6966 
4B2E 
7420 
7465 
2035 


6865 7220 
7320 6062 
7220 6462 
2400 


6*66 

6F72 

7472 

6420 

6E65 

206F 

6520 

2069 

7424 

6572 

2066 

7769 

6D6F 

6966 

6261 

6D6F 

6869 

2064 


206 5 
2072 
6963 
7 46 F 
2062 
6620 
7A6P 
6E20 

726F 

6F6C 

6E67 

7374 

656C 

6420 

7279 

7020 

622E 


MSGAE TEXT ‘ TP ERROR RESTRICTED TO ONE BIT OP ONE ZONE IN MATS* 


MSG4F TEXT • ERRORS FOLLOWING, MOST LIKELY BAd MEMORY CHIP UN DB.S* 


6174 7573 


4B2E 

7175 

616C 

6520 

206E 

ODOA 

2022 

2220 

7072 

6420. 

2073 


2400 

656E 

206D 

7465 

6578 

2020 

4P2E 

6E6F 

696E 

696E 

6563 


MSG5 TEXT *STATUS$* 

MSGOK. TEXT *0*K.$» 

MSGSP TEXT ‘SEQUENTIAL MODE TEST NEXT,•*Z*ODQA*; 

• IP *'0.K." NOT PRINTED IN 5 SEC, ** 




TITLE 
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> 1 REV A* 
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2C20 

2400 






004395 

13AC 

2020 

7468 

656E 

MSGSG 

TEXT 

* THEN MB FAUwT. THIS MtSSAGE WILE*,Z , ODOA* » 



13AF 

2040 

4220 

6661 





00439*6 

1382 

756C 

742E 

2020 



* MU1 Bt PRINTED IM SUBSEQUEMI PASSESJSt 



1305 

7466 

6973 

2060 




ft \ 



6573 

7 361 

6765 







2077 

696C 

6C00 







0A20 

206E 

6F74 







2062 

6520 

7072 







696E 

7465 

6420 







696E 

2073 

7562 







7365 

7175 

656E 







7420 

7061 

7373 







6573 

2124 






004397 

13Q2 

7472 

616E 

7370 

MSGSR 

TEXT 

• TRANSPARENT MODE TEST NEXT,* *Z , ODOm* » 



13D5 

6172 

656E 

7420 





004396 

1306 

606F 

6465 

2074 



• IF ” U • K • " NOT PRINTED IN 5 SEC,S* 



13Db 

6573 

7420 

6E65 







7874 

2CQD 

0A2O 







2069 

6620 

226F 







2E66 

2E22 

206E 







6F74 

2070 

7269 







6E74 

6564 

2069 







6E20 

3520 

7365 







632C 

2400 






004399 

13F2 

6170 

7431 

2400 

MARTI 

TEXT 

• APT 1$ * 


004400 

13F3 

6170 

7432 

2400 

MART 2 

TEXT 

•APT2S* 


004401 

13F6 

6170 

7433 

2400 

MARI 3 

TEXT 

»APT3S* 


004402 

13FB 

6170 

7434 

2400 

MAR T 4 

TEXT 

•APT4S * 


004403 

13 Ft 

6170 

7435 

2400 

MART 5 

TEXT 

»APT5S* 


004404 

1401 

6170 

7436 

2400 

MART 6 

TEXT 

* AP T 6$ * 


004405 

1404 

6470 

7431 

2400 

M0RT1 

TEXT 

* OPT 1 $ * 


004406 

1407 

6470 

7432 

2400 

M0RT2 

TEXT 

* OPT2$ * 


004407 

140A 

6470 

7433 

2400 

MDPT3 

TEXT 

•0PT3S• 


004406 

1400 

6470 

7434 

2400 

M0RT4 

TEXT 

* OPT 4$ • 


004409 

1410 

6061 

7424 


MM AT 

TEXT 

•MATS* 


004410 

1412 

2020 

2069 

7324 

MSG6 

TtXT 

• 1S$» 


004411 

1415 

2C20 

2073 

6224 

MSG7 

TEXT 

• * sbs* 


00441 2 

1416 

6964 

2400 


MSG8 

TtXT 

• IDS * 


004413 






IFZ 

$AF-2*LAF2 


004414 

14 1A 

6370 

6673 

3420 

MSG9 

TEXT 

•CPFS4 PSS« 



1410 

7073 

2400 






004415 





LAF2 

MULL 



004416 





5AF2 

MULL 



004419 

141F 

3320 

6069 

6E20 

MSG10 

TEXT 

*3 MiN DUNES* 



1422 

646F 

6E65 

2400 





004420 

1425 

2020 

2073 

7461 

MSG 11 

TtXT 

• STATUS =$* 



1426 

7475 

7320 

3024 





004421 

142B 

7261 

6020 

6E6F 

MSG 12 

TEXT 

• RAM NO•1 PKtSENT $ * 



142E 

2E31 

2070 

7265 







7365 

6E74 

2400 





004422 

1434 

7261 

6020 

6E6F 

MSG 13 

TEXT 

•RAM NQ*i NOT PRESENTS* 



1437 

2E31 

206E 

6F74 







2070 

7265 

7365 







6E74 

2400 






004423 

143F 

7261 

6020 

6E6F 

MSG14 

TEXT 

•RAM MO*2 PRESENTS* 

. 


1442 

2E32 

2070 

7265 







7365 

6E74 

2400 




3 ./ -r£ 

004424 

1446 

7261 

6020 

6E6F 

MSG15 

TtXT 

•RAM NO*2 NOT PRESENTS* 



144b 

2E32 

206E 

6F 74 







2070 

7265 

7365 







6t74 

2400 






004423 

1453 

6461 

7461 

2030 

MSG 19 

TEXT 

•DATA *S« 



1456 

2400 







004426 

1457 

2C20 

206L 

6F63 

MSG21 

TEXT 

», toes* 



145A 

2400 







004427 

143b 

2C20 

207A 

6F6E 

MSG22 

TEXT 

• , TONES' 



145E 

6524 







004426 

145F 

2C20 

2073 

7461 

MSG23 

TEXT 

*, STATUS =S» 



1462 

7473 

7320 

3024 





004429 

1465 

2C20 

2020 

7465 

MSG24 

TEXT 

*, TEST NO* =$• 



1466 

7374 

206E 

6F2E 







2030 

2400 






004430 





* 




004431 

1460 

7372 

3124 


MSGSR1 

TEXT 

• SR 1S • 


004432 

146F 

6163 

3124 


MSGAC1 

TEXT 

• A C1S • 


004433 

1471 

7261 

3124 


MSGRA1 

TEXT 

•RAIS* 


004434 

1473 

7374 

3124 


MSGST1 

TEXT 

•STiS* 


004433 

1473 

6362 

3124 


MSGCbl 

TEXT 

* CB1S» 


004436 

1477 

6373 

3124 


MSGCS1 

TUT 

•CSls* 


004437 

1479 

6372 

3124 


MSGCR1 

TEXT 

•CRls* 


004436 

1~4 7 b 

6062 

3124 


MSGLBl 

text 

•UH* 4 


004439 

1470 

7A6E 

3124 


MSGZN1 

TEXT 

* ZNlS * 


004440 

147F 

6966 

3124 


MSGlFI 

TEXT 

* IF1S * 


004441 

1481 

7469 

3124 


MSGTI1 

TEXT 

•TI1S* 


004442 

1463 

7361 

3124 


MSGSA1 

TtXT 

•SA1S* 


004443 

1485 

7361 

3224 


MSGSA2 

TEXT 

•SA2S * 


004444 





* 




004443 





* 




004446 





* 




004447 





* 




004446 





* RE 

S t R 

V E 0 AREA 


004449 





* 




004450 





# 




004451 

1487 

0000 



TMPi 

RE5V 

1*0 TEMPORARY STONt 


004452 

i486 

0000 



TMR2 

RESV 

1,0 TEMPORARY STORt 


004453 

1489 

0000 



TMR3 

RESV 

1,0 TEMPORARY STORfc 


004454 

146A 

0000 



TMP4 

RtSV 

2,0 TEMPORARY STORt 


004455 

148C 

0000 



ST0R1 

RESV 

1,0 TEMPORARY STORt 


004456 





* 




004457 

1480 

0000 



MOOBIT 

RESV 

1,0 =HEX 0800 (BIT 4) If SEQUENTIAL MODE 


004456 





* 


=HEX 0040 (BIT 9) IF TRANSPARENT MODt 


004459 





* 




004460 

148E 

0000 



STABIT 

RESV 

1,0 =HEX 0900 IF SEQUENTIAL MODE 


004461 





* 


=HEX 0140 IF TRANSPARENT mode 


004462 





* 




004463 

148F 

0000 



PASCNT 

RESV 

SAF,0 PASS COUNTER 


004464 





* 




004463 

1490 

0000 



B40CML 

RESV 

SAF,U FOR B4 (PASS COUNT) RESTORATION 

£ 

004466 





# 



m 

004467 

1491 

0000 



CPCHAN 

RESV 

1,0 *** ASSUME 0 FOR NQw *** 


004466 





* 




004469 

1492 

2610 



ID 

PC 

2*2610* wCS ID 

i 









# 

i 
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004470 



# 




004471 



* 




00447^1 

1493 

0000 

KtD 

RtSV 

1,0 

RtD tkkUR FORCcD VIA MAIN MEMORY 

0044 73 



* 



SWITCH STORED HERE 

004474 



* 




00447b 

1494 

0000 

DNKERF 

Rtsv 

1,0 

ERROR FLAG FOR TEST DNR 

004470 



* 




004h77 

1495 

0000 

KAMI F L 

KtSV 

1,0 

=1 IF RAM NO.1 PRESENT, =0 IF NOT. 

00447b 



* 




004479 

1496 

0000 

RAM2FL 

RtSV 

1,0 

=1 IF RAM NO.2 PRESENT, =0 IF NOT. 

004480 



# 




004481 

1497 

0000 

KAMADK 

KtSV 

1,0 

= HEX 0800 IF kAM 1 pREStNT. 

004482 



* 



= HEX OCOO IF uNLY RAM 2 PRESENT. 

004483 



* 




004484 

1498 

0000 

APIEF1 

RESV 

1,0 

ERROR FLAG 1 FuR ”ApT H 

004485 



# 




004480 

1499 

0000 

APTtF 2 

RESV 

1,0 

ERROR FLAG 2 FoR "Apf" 

004487 



* 




00448b 

149A 

0000 

DPTtFl 

RESV 

1,0 

ERROR FLAG FOR ”DPT*• 

004489 



* 




004490 

149b 

0000 

SPHADR 

RESV 

1,0 

SPLASH ADDRESS 

004491 



* 




004494 

149C 

0000 

SPHCOD 

RtSV 

1,0 

SPLASH MICROINSTRUCTION CODE 

004493 



* 




004494 

1490 

0000 

RTF LG 

RESV 

1,0 


004495 



# 




004490 

1491 

0000 

WC5IZE 

RtSV 

1,0 

WCS LASI LOCATION ADDRESS 

004497 



# 



(ObFF FUR RAMI, QFFp FOR RAM2) 

004498 



* 




004499 

I49F 

0000 

TRPFLG 

RESV 

1,0 

TRAP FLAG 

004500 



* 



= 0 IF IRAPS, = 1 IF NOT 

004501 



* 




00450c 

14A0 

0000 

TSTCNT 

RESV 

1,0 

TEST COUNTER To STORE TEST NO. FOR DEBUG 

004503 



* 




004504 



* 




004505 



* 




004500 



* WCS CHANNEL no., function code table 

004507 



* 




00450b 



* (SHOWN btEUW FUR CP CH. 

\0. 0. IF NOT CP 0, oITS 8 AND 9 MODIFIED) 

004509 



* NOTE; BITS 8 AiMD 9 ARE 

Tit COMPLEMENT UP THE CP CH. NO* • 

004510 



* 




004511 



* 




004512 

14A1 


WCSTBL 

RESV 

0 


004513 

14 A1 

03C1 

UUTCON 

DC 

4*030 * 

OUTPUT CONTROL WORD 

004514 

1 4 A2 

03C5 

OUTADR 

DC 

4 ’ 03C5• 

OUTPUT ADDRESS 

004515 

14 A3 

Q3CF 

OUTDAT 

DC 

4• 030F * 

OUTPUT DA 1 A 

00451b 

14A4 

03C7 

OUTTSK 

DC 

4 • 0 3 C 7 * 

OUTPUT TASK WORD 

004517 

14A5 

03CL 

1NDAT 

DC 

4 * 03CE * 

INPU1 DATA 

00451b 

14 Ao 

030b 

INSTAT 

DC 

4 * 03D8 * 

INPUT S1 A I US WORD 

004519 

14A7 

03E6 

INID 

DC 

2 * 0316 * 

INPUT I.D. CODE 

004520 



* 




004521 



* 




004522 



* EXIT FIRMWARE 10 RETURN 

FROM WCS TO NAfIVE FIkMwARe IN SEQUENTIAL MODE 

004523 



# 




004524 



* 




004525 

i 4 Ab 

C023 

BUFF 1 

DC 

4 * C023 * 

RtTURN ROUTINE WHEN ONLY RAMI PRESENT 

00452b 

14A9 

7E90 


DC 

4 * 7E90 * 


004527 

14AA 

2500 


DC 

4*2500* 


004528 

l4Ab 

03 FD 


DC 

4 • 03FD• 


004529 



* 




004530 

14AL 

8026 


DC 

4*8026* 


004531 

14AD 

DCDO 


DC 

4 * DCDO• 


004532 

14AL 

8000 


DC 

4*8000* 


004533 

14AF 

03 Ft 


DC 

4 * Q3PE• 


004534 



* 




004535 

14bU 

00 A3 


DC 

4 * 0UA3• 


004536 

14b 1 

0600 


DC 

4'CBUO* 


004537 

1462 

6035 


DC 

4*6035* 


004538 

14133 

A 3 F F 


DC 

4 * A3F F • 


004539 



* 




004540 

I4b4 

8013 


DC 

4*8013* 


004541 

14b5 

C641 


DC 

4 * C641 * 


004542 

1466 

7000 


DO 

4*7000* 


004543 

1467 

8020 


DO 

4*8020* 


004544 



* 




004545 



* 




00454b 



* 




004547 

146b 

C023 

6UFF2 

DC 

4 *C023 * 

RETURN ROUTINE WHEN RAM2 IS PRESENT 

00454b 

1469 

7t90 


DC 

4 * 7E90 * 


004549 

146A 

2500 


DC 

4*2500* 


004550 

1466 

07FD 


DC 

4'07FD' 


004-551 



# 




004552 

146C 

8026 


DC 

4*8026* 


004553 

1460 

DODO 


DC 

4*DCDO* 


004554 

I46t 

8000 


DC 

4*8000* 


004555 

146F 

07FE 


DC 

4 * Q7Ft * 


00455b 



* 




004557 

I4C0 

00A3 


DC 

4 * 00A3• 


004558 

14CI 

0600 


DC 

4 * CBOO' 


004559 

14C2 

b035 


DC 

4 * B035 * 


004560 

14C3 

A7FF 


DC 

4 * A7FF• 


004561 



* 




004562 

14C4 

8013 


DC 

4*8013* 


004563 

14C5 

0641 


DC 

4•C641• 


004564 

14^6 

7000 


DC 

4*7000* 


004565 

14C7 

8020 


DC 

4*8040* 


004566 



* 




004567 



* 




004568 



* 




004569 



* EXIT FIRMWARE TO RETURN 

10 NATIVE FIRMWARE IN TRANSPARENl MODE 

004570 



* 




004571 



* 




004572 

14C8 

CO 2 3 

BUFF 3 

DC 

4* C023 * 

FOR ONLY KAMI PRESENT 

004573 

14C9 

7E9Q 


DC 

4 * 7E90 * 


004574 

14CA 

2500 


DC 

4*2500* 


004578 

14C6 

0 3 F D 


DC 

4 * 03FD* 


004576 



# 




004577 

14CC 

8026 


DC 

4*8026* 


004578 

14CD 

DODO 


DC 

4*DCDO* 


004579 

14Ct 

8000 


PC 

4'8000* 


004580 

14CF 

Q3FE 


DC 

4 * 0 3 F E * 


004581 



# 




004582 

1400 

00A3 


DC 

4 * 00A3 * 




TITLE; 


CPP'S4t •REV A* 


PAGE 52 


004583 

004584 

004585 

004586 

004587 

004588 

004589 

004590 

004591 

004592 

004593 

004594 

004595 

004596 

004597 

004596 

004599 

004600 

004601 

004602 

004603 

004604 

004605 

004606 

004607 

004608 

004609 

004610 

004611 

004612 

004613 

004614 

004615 

004616 

004617 

004616 

004619 

004620 

004621 

004622 

004623 

004624 

004625 

Q0462o 

004627 

004626 

004629 

004630 

004631 

00463*; 

004633 

004634 

004635 

004636 

004637 

004636 

004639 

004640 

004641 

004642 

004643 

004644 

004645 

004646 

004647 

004646 

004649 

004650 

004651 

004652 

004653 

004654 

004655 

004656 

004657 

004656 

004659 

004660 

004661 

004662 

004663 

004664 


1401 

1402 

1403 

1404 

1405 

1406 

1407 


1408 

1409 
140A 
140b 

140C 

1400 

140E 

14DF 

14E0 

14E1 

14E2 

14E3 

14E4 
14E5 
14E6 
14t 7 


14E8 

14EA 

14EC 

14EE 

14F0 

14F1 

14F2 


CF00 

BOOO 

03FF 

8893 

B701 

7000 

0020 


C023 

7E90 

2500 

Q7FD 

6026 

OCOO 

6000 

07FE 

00A3 
CFOO 
bOOO 
0 7 F F 

8893 

0701 

7000 

0020 


9800 14A2 
A800 14A3 
0800 14A5 
C870 5555 

8755 

8756 

F870 0800 


14F4 0000 


14F5 
14F6 
14F7 
14F 8 
14F9 
14FA 
14F0 
14FC 
14F0 
l4Ffc 

14 F F 

1500 

1501 

1502 

1503 

1504 

1505 

1506 
150 7 

1508 

1509 
150A 
150b 
150C 
1500 

1510 

1511 

1512 

1513 

1514 

1515 

1516 

1517 
1516 
1519 

15 1A 
151b 

1510 
15 IF 
1521 

1523 

1526 


* 

6UFF4 


OC 

DC 

PC 

PC 

DC 

PC 

PC 


PC 

DC 

PC 

DC 

DC 

PC 

DC 

DC 

DC 

DC 

PC 

DC 

DC 

DC 

PC 

DC 


004665 1536 

0000 EKR COUNT 


8057 
0051 
8054 
0052 
8054 
0052 
8054 
0052 
8054 
0052 
0F7F 
0F7F 
0F7F 
0F7F 
0F7F 
0F7F 
0F7F 
0 F 7 F 
6057 
0051 
8056 
0053 
8056 
0053 
8056 
0053 
8056 
0053 
0F7F 
0F7F 
0F7F 
0F7F 
0 F 7 F 
0F7F 
0F7F 
0F7F 
8654 
8 AD5 

5BQ0 14F5 

8070 0000 
0000 14A1 
OF 80 14F5 

434F 5059 5249 
4746 5420 2020 
2031 3937 382C 
2042 5920 484F 
4E45 5957 454C 
4C20 494E 432E 
2400 
0100 


* 

* 

DEBUG 


Z • CFOO • 
2 • 13000 • 
2 • 0 3 F F * 

2* 8893* 
2*B70l* 
4 • 7000 • 
2 • 0020 • 


4»C023« 
2 * 7E90 • 
2 • 2500 • 
2 1 07FD • 

2 • 8026 • 
2 • DCPO • 
2 • BOOO • 
2•07FE• 

2 • 00A3 • 
2* CFOO • 
2 • BOOO * 
2•07F F 1 

2 * 8893 * 
2 • B701 • 
2*7000* 
2 * 0020 * 


P E b U G 

LDR 
LOK 
LDR 
LDR 
CL 
CL 
LDR 


LOOP 

*Rli<OUTADK 
SR2»<PUTPAT 
*K3 »<1NPAT 
*R4,=2*5555* 
= *K5 
= $R6 

$R7 * =2 * 0800• 


HLT 


10 

10 

10 

10 

10 

INOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

10 

10 

10 

10 

10 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

CPL 

INC 

btVN 


= 3>R7i = *Rl 

=$R4,=$K2 

=$R4t=iR2 

=SR4,=$R2 

= 3>R4* = $R2 

>$•1 
>$-l 
>$-1 
>$-i 
>S-1 
>S-1 
>*-l 
>$-I 
= $R7,: 


= SR6 $ = 
= $R6,= 
= SR6,: 
=SR6*: 


SRI 

SR3 

$K3 

SR3 

$R3 


>$-i 
>S-i 
>$-l 
>$~1 
>$~ 1 
>S-1 
>$-l 
>s~l 

= SR4 
= SR5 

SR5 * <DEBUG 


FOR RAM2 PRESENT 


DATA WR1TIEN 
INDICATOR 
DATA READ 

APRS OF 15T LOCATION OF RAM 1 

ALTER REGISTERS IF WANT• 
OTHERWISE HIT tXECUTE. 

OUTPUT AQRS 

OUTPUT DATA 

OUTPUT PA I A 

OUTPUT PA I A 

OUTPUT PA I A 


OUTPUT APRS 
INPUT DATA 
INPUT DATA 
INPUT DATA 
INPUT DATA 


10 =2*0000* BOUTON 

b <DEBUG 

TEXT 'COPYRIGHT 


COMPLEMENT data 
LOOP 

OUTPUT SIGNAL FOR SCOPE 
LOOP 

1978♦ BY HONEYWELL INC.S* 


END 


CPF 54 % ST ART 


SAF 

325C 

390 

406 

773 

606 

880 

919 

2343C 

2344C 


2357 

2427 

3666C 

37 57 

3977 

3982 

4067 C 

4071 

4078C 


4102 

4118C 

4 i 1 9C 

4122C 

4126 

415 3C 

4154C 

415 7 C 

4161 


4192C 

4416 

4195C 

4463 

4200 

4465 

4286 

4345C 

4350 

4353C 

4369 

4372 

SB1 

338 

2303C 

343 

2304 

1258 

1271 

U80 

1973 

2052C 

2053 

2171C 

SB2 

2455 

2465 

24 70 

2503 

2590 

2880 

2881 

2882 

2883 

2917 

2921 

2928 

29/1 

2989 

3006 

3019 

3023 

3028 


3061 

306 7 

3074 

3118 

3136 

3151 

3166 

3171 

3174 


3209 

3216 

3253 

3270 

3262 

3296 

3301 

3304 

3307 


3338 

3342 

3352 

3400 

3446 

3477 

3478C 

3530 

553 1C 


H 47C 
A?9 2 
A191C 
4413 

2172 

29U 

3031 

3203 

3334 

3536 



v. ..y 
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3578 

3626 

3o32 

3636 

3643 

3673 

3677 

3770 

5776 

3793 


3826 

3857 

3887 

3917 

3922 

3927 

3932 

3961 

3965 

3982 


3998 

4028 

4053C 








*63 

3369 

3402 

4295 

4300C 

4312 

4323 

4345C 

4350 

4353C 


*64 

348 

4079 









*B5 

23556 

4124b 

41596 

4198b 







*66 

377b 

3836 

4026 

4136 

449B 

4556 

4636 

4706 

478b 

4866 


494B 

5016 

508B 

518B 

526B 

5406 

548B 

556B 

5666 

587B 


593B 

6006 

6076 

6156 

6236 

6326 

6396 

6466 

6566 

6646 


6786 

6866 

6956 

705b 

7316 

738b 

7486 

7566 

7656 

7 83B 


79 IB 

8026 

8196 

8306 

839B 

849B 

8596 

8706 

8906 

9Q0B 


9136 

940b 

9486 

9546 

9606 

9666 

9726 

9796 

9896 

9996 


10176 

1025b 

10316 

10376 

1043B 

10506 

10576 

1067B 

10776 

1105B 


11106 

11186 

11256 

11346 

11396 

11466 

11546 

11606 

11666 

1173 B 


11786 

11866 

11936 

12016 

1206B 

12116 

12186 

12316 

12766 

12866 


13356 

13616 

13686 

13736 

13786 

1384b 

13896 

13946 

14046 

14096 


14156 

14256 

1432B 

14376 

14436 

14556 

14606 

14656 

14716 

14766 


1481B 

14876 

1494B 

15046 

15096 

15136 

15196 

15296 

15386 

15486 


16476 

16726 

16956 

16986 

1700B 

17046 

18456 

185/6 

18816 

1 #900 


19096 

19166 

196 IB 

20056 

20186 

20326 

20476 

20806 

20916 

2 1 0 1B 


21146 

2124b 

21396 

21496 

2 1666 

22066 

2223B 

22366 

22516 

2263B 


22766 

2287b 

2298B 

23226 

2341C 

23876 

24296 

24496 

2456b 

24576 


24636 

24736 

2483B 

25016 

25596 

2591b 

25926 

25986 

26036 

2654B 


26856 

2694b 

2/036 

28846 

26906 

2912b 

29136 

29186 

29196 

29226 


29236 

2929b 

2930b 

2942b 

2972b 

2973b 

29906 

29916 

30076 

3008B 


3020b 

3021b 

3024B 

3025b 

3062B 

30636 

3068B 

30696 

30756 

30766 


30876 

3119b 

3120B 

3137b 

3138B 

3152b 

31536 

316 /B 

31686 

3204B 


32056 

32106 

32116 

32196 

3220B 

32306 

32566 

32576 

32716 

32726 


32856 

32866 

3297B 

32986 

3335B 

33366 

33396 

33406 

33436 

33446 


33536 

33546 

3360B 

33766 

34016 

3403b 

34476 

34496 

34716 

34736 


34836 

35456 

35466 

35496 

35556 

35616 

3627b 

36286 

36336 

3634B 


36376 

36386 

3644B 

36456 

36486 

36576 

36746 

36756 

56786 

36796 


37596 

37946 

37956 

37966 

38066 

38276 

38286 

38296 

3839b 

3858B 


38596 

38606 

3 6 7 0 B 

38886 

3889B 

38906 

38996 

39186 

39196 

3923B 


39246 

39286 

• 39296 

39336 

39346 

39356 

39446 

3962B 

39636 

39666 


39676 

39686 

39856 

40546 

4117C 

41416 

4152C 

41766 

4 19 OC 

42156 


42256 

42346 

4243B 

42526 

42676 

42826 

43036 

43216 



*67 

3660 

3666C 

3977 

3993C 

3998 






*R1 

340 

341 

342 

343 

352 

353C 

354C 

355 

356C 

515 


5226 

653 

t>60B 

771 

7 7 2 C 

813 

814C 

878 

879C 

976 


9856 

1054 

1063B 

1096 

1098 

1099C 

1261 

1262 

1308 

1317 


1320 

13216 

1323 

1324 

13256 

1599 

1600C 

1614 

1615C 

1736 


1761 

1766 

1 /79 

1783 

1795 

1 /98 

1809 

1811 

1932 

1933C 


1938 

1939 

19406 

1942 

1943C 

1944 

1947 

1948C 

1949 

1955B 


1966 

1996 

1998 

2010 

2023 

2037 

2073 

2082 

2084 

2103 


2106 

2126 

2130 

2151 

2156 

2196 

2208 

2213 

2227 

2238 


2242 

2255 

2265 

2268 

2280 

2289 

2291 

2396 

2398 

2400 


2401 

2438 

2439C 

2440 

2441C 

2453 

2458B 

2466 

2467C 

2486C 


2491 

2504 

2505C 

2518 

2519C 

2520 

252 1C 

2 522C 

2525 

2576 


2577C 

2578 

2579C 

2589 

2593 

2594 

2609 

2616 

2643 

2644 


2653 

2699 

2/0QC 

2706C 

2710 

2938 

2939C 

2944C 

2962 

2966 


2967 

2968 

29/8 

2997 

3001 

3002 

3003 

3014 

3083 

3084C 


3089C 

3107 

3113 

3114 

3115 

3125 

3142 

3147 

3148 

3158 


3226 

3 2 2 7 C 

3232C 

3247 

3262 

3276 

3291 

3365 

3366C 

3374 


3406 

3443 

3450 

3451 

3455 

3456 

3533 

35476 

3562C 

3570 


3653 

3654C 

3659C 

3664 

3762 

3 7 6 3 C 

3764 

3765C 

3771 

3772C 


3773 

3774 

3800 

3801C 

3633 

3834C 

3864 

3865C 

3894 

3695c 


3939 

3940C 

3972 

3973C 

3974 

3976C 

3978 

3979C 

3980 

3981C 


3990 

3991 

3994 

3995 

4029 

4030C 

4031 

4052 

4053C 

4084 


4085 

4089 

4090C 

4116C 

4120 

41216 

4129 

415 1C 

4155 

41 56 B 


4164 

4189C 

4193 

41946 

4196 

4620 

4631 

4644 



*R2 

339 

3446 

1170 

11826 

1269 

1290 

13106 

1364 

13986 

1?37 


1765 

1782 

1 / 97 

1810 

1952C 

1954 

1967 

199 7 

2003 

2009 


2016 

2022 

2030 

2036 

2045 

2078 

2083 

2089 

2099 

2105 


2112 

2122 

2129 

2137 

2147 

2155 

2164 

2204 

2212 

2221 


2234 

2241 

2249 

2261 

2267 

2274 

2285 

2290 

2296 

2377C 


2380 

2382C 

2385 

2397 

2398 

2399C 

2478 

2491 

2493C 

2495^ 


2523 

25266 

2541C 

2542 

2543 

2547C 

2556 

2583 

2585 

25q4 


2614 

2615 

2616 

2712 

2715 

2726 

2945C 

3090C 

3109 

3127 


3144 

3160 

3233C 

3346 

3347 

3348C 

3355 

3356 

3377 

3382 


3479 

3480C 

3539 

3540 

3553 

3554C 

3 5 7 2 C 

3597 

3598 

3 775 


37776 

4072 

407 7B 

4621 

4632 

4633 

4634 

4635 



*R3 

1224 

1234 

1256 

1274 

1293C 

1296 

1298C 

1303 

1658 

1663 


1738 

1762 

1763 

1764 

1767 

1768 

1769 

1770 

1780 

1781 


1784 

1785 

1 / 86 

1796 

1799 

1800 

1812 

1953 

1954 

1968 


1999 

2004 

2011 

2012 

2017 

2024 

2025 

2026 

2031 

2038 


2039 

2040 

2041 

2046 

2074 

2079 

2085 

2090 

2095 

2100 


2104 

2107 

2108 

2113 

2118 

2123 

2127 

2128 

2131 

2132 


2133 

2138 

2143 

2148 

2152 

2153 

2154 

2157 

2158 

2159 


2160 

2165 

2197 

2198 

2199 

2200 

2205 

2209 

2210 

22U 


2214 

2215 

2216 

2217 

2222 

2228 

2229 

2230 

2235 

2239 


2240 

2243 

2244 

£245 

225D 

2256 

2257 

22*2 

2266 

2269 


2270 

2275 

2281 

2286 

2292 

2297 

2342C 

2345 

23466 

2351 


2353 

2360B 

2386 

2479 

2480C 

2494C 

2607 

2 6 0 8 C 

2925 

2926 


2927 

2951 

2952 

2954 

2956 

3071 

3072 

3073 

3097 

3098 


3100 

3102 

3213 

3214 

3215 

3238 

3239 

3241 

3243 

3250 


3251 

3252 

32/9 

3280 

3281 

3349 

3350 

3356 

3371 

3372 


3382 

3390 

3444 

3445 

3451 

3459 

3463 

3464 

3495 

3532 


35736 

3640 

3b4 1 

3642 

3802 

3835 

3866 

3941 

3949 

4291C 


4300C 

4301 

43 1 1C 

4326C 

4327 

4346 

4347 

4348C 

4349 

4354 


4355 

4356C 

4357 

4622 

4t>45 

4646 

464 7 

4648 



*R4 

381 

387 

389C 

395 

405C 

411 

419 

42 7 C 

453 

460 


476 

484 

492 

499 

506 

524 

531 

538 

546 

554 


563 

591 

598 

605 

613 

621 

630 

6 3 7 

654 

662 


669 

676 

684 

693 

702 

746 

752 

763 

781 

787 


798 

836 

842 

847 

855 

868 

888 

896 

909 

952 


964 

97 / 

987 

996 

1023 

1035 

1047 

1065 

1074 

1116 


1123 

1137 

1 144 

1152 

1158 

1184 

1191 

1209 

1216 

1226 


1229 

1259 

1260C 

1266 

1267C 

12 71 

1278C 

1279 

1280 

1281 


1290 

1291 

1292C 

12976 

1330 

1333 

1407 

1413 

1423 

1430 


1435 

1441 

1485 

1492 

1524 

1527 

1542 

1545 

1589 

1590 


1606 

1607 

1632 

1633 

1636C 

1637 

1638 

1659C 

1660 

1661 


1756 

1765 

1 /71 

1773 

1782 

1787 

1789 

1797 

1801 

1803 


1810 

1813 

1815 

1820 

1841 

1842 

1850C 

1851 

1852 

1 #62C 


1863C 

1864 

1865 

1867 

1957 

1959 

1969 

1997 

2000 

2004 


2009 

2013 

2017 

2022 

2027 

2031 

2036 

2042 

2046 

2 O 75 


2079 

2096 

2100 

2119 

2123 

2144 

2148 

2212 

2218 

2222 


2241 

2246 

2250 

2267 

2271 

22 /5 

2290 

2293 

2297 

2310 


2317 

2318 

2335C 

2336 

233 / 

2339 

2442 

2648 

2660 

2665 


2677 

2687 

2880 

2886 

3375 

3377 

3389 

3390 

3398C 

3404 


3467 

4205C 

4261C 

4262C 

4263 

4264C 

4266 

4294 

4301 

4304 


4323 

4324C 

4o2 3 

4632 

4t>33 

4634 

4635 

465 7C 



*R5 

459 

460 

482 

483 

484 

498 

499 

544 

545 

546 




TITLE 
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•REV A* 



562 

563 



683 

684 



798 

800 



994 

995 



1143 

1144 



122 7 

1228 



1412 

1413 



1525 

1526 



1790B 

1794 



2086 

2090 



2165 

2201 



2321 

2443 



2881 

2887 



4078C 

4207 


^»R6 

1204 

1257 



1627 

1633 



1769 

1770 



1799 

1600 



2000 

2011 



2040 

2041 



2096 

2104 



2132 

2133 



2159 

2160 



2200 

2201 



2228 

2229 



2256 

225 / 



2293 

2366C 



2882 

2888 



4318 

4327 


jt>R7 

446C 

468 



970 

1029 



1578 

1620 



1809 

1811 



2037 

205 1C 



2151 

2156 



2242 

2255 



2445 

2448 



2658C 

2669 



2723 

2883 



3803 

3811 



4626 

4631 

26 22 

AC 1 

2620 


4159 

ACktRl 

41566 


4161 

aCKER2 

41 52C 

4153C 

4164 

ACKLR3 

41606 


417b 

ACKLR4 

41 5 1C 

4164 

4151 

ACKERR 

5186 

6566 

2573 

ACT 10 

25126 

25136 

2392 

ACT 20 

25956 


2603 

ACT30 

25966 


2612 

ACT40 

2608C 

26106 

2620 

ACT 50 

2617b 


4169 

AKER3A 

4169 


41/3 

AKER36 

41686 


4176 

AKLR3C 

417 OB 


1564 

APT 

15466 


1605 

APT1 

15916 


1687 

APT10 

16816 


1690 

APT 11 

1690 


1695 

APT 12 

16786 

1685b 

1698 

APT 13 

16536 

1693b 

1700 

APT 14 

1648B 

1673b 

1703 

APT 15 

16396 

1662b 

1619 

APT 2 

16016 

1608b 

1643 

APT 3 

1643 


1630 

APT4 

16416 

1650 

1657 

APT 5 

16346 


1669 

APT 6 

1669 


1675 

APT7 

16676 

1675 
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2653 

2664 

2675 

2909 

292 / 

2968 

2988 



3003 

3059 

3073 

3115 

3135 

3201 

3215 

3252 

3269 

3281 



3332 

3397 

3441 

3466 

3525 

3622 

3642 

3774 

3791 

3824 



3855 

3885 

3915 

3959 

4*96 

4620 





4513 

OUT CON 

375 

817 

1108 

1136 

1163 

11/1 

1199 

1208 

1223 

1225 



1249 

1257 

1359 

1371 

1380 

1402 

1458 

146 7 

1516 

1323 



1535 

1541 

2540 

3559 

4661 






4515 

OUT DAT 

466 

516 

644 

735 

741 

946 

958 

970 

1029 

1041 



1055 

1128 

1164 

1176 

1466 

1303 

1376 

1392 

1463 

1479 



1507 

1517 

1576 

1578 

1584 

1620 

1622 

1627 

1737 

1953 



1967 

2385 

2470 

2525 

2665 

2666 

*667 

267 3 

*886 

2887 



2888 

2889 

3//6 

4621 







4516 

OUTTSR 











44t>3 

PASCNT 

325C 

390 

406 

773 

806 

880 

919 

242 7 

3757 

4Q67C 



4071 

4092 

4102 








1094 

PET 

9446 

9506 

9566 

9626 

9686 

9746 

9836 

992B 

9976 

1004B 



10216 

102 76 

10336 

10396 

10456 

10526 

10616 

10706 

10756 



pETi 

PET 10 

PEI 11 

PET1* 

PET 1 3 

PEI 14 

PET14A 

PET 15 

PET 16 

PET 166 

PET16C 

PET16D 

PET 17 

PET lb 

PET 19 

PET* 

PET20 

PET2GA 

PET 21 

PET *2 

PET23 

PET3 

PET4 

PET4A 

PET4b 

PET5 

PET 6 

PET7 

PE lb 

PET 9 

PRCLSV 

PRCRLF 

PRMAY 

PRNT10 

PRNT15 

PRNT20 

PRNT25 

PRNT30 

PRNT40 

PRNT5Q 

PRNT55 

PRNT60 

PRRDBi 

PRRD62 

PRRN6 


RATIO 

RAT 100 

RAT 110 

RAT 120 

RAT20 

RAT 200 

RAT40 

RAT50 

RAT60 

RD6K10 

RD6K15 

RD6K20 

RPBK3G 

RD6K40 

RED 

RTFLG 


4281 

37596 43*16 

18906 


4260 

PR5TS 

4026 

17006 

19096 

1916b 







4269 

PRSTSl 

4261C 

4266 









4270 

PR5T52 

4264C 

4265 









2733 

RA1 

2731 










4477 

RAN1FL 

724C 

772C 

930 

1094 

1564 

1746 

1871 

1938 



4479 

RAH2FL 

725C 

879C 

932 

1008 

1566 

1829 

1893 

1939 

*178 

246Q 



2511 

2681 

2690 

2713 

2915 

2969 

3004 

3065 

3116 

3149 



3207 

3217 

3254 

3283 

3534 

3630 

3768 

4050 

4292 

4316 

4481 

RAMADR 

1099C 

1103 

1*70 

1294 

1536 

1951 

1983 

2059 




25986 33606 3473b 3549B 36486 


4335 


4342C 



TITLE CPHS4* •REV A* 


PACit 


59 


3588 
3595 
A3 74 
4416 
3522 
3586 
3593 
3597 
3539 
3546 

3553 

3554 
3559 
3562 
3565 
3578 
3 582 
4490 


SAl 

SA2 

SAf-1 

SAH2 

3ATI0 

SAT100 

SAT 110 

SAT120 

5 AT 20 

SAT25 

SAT30 

SAT32 

SAT 35 

SA1 38 

SAT 40 

SAT80 

SAT90 

SPHADR 


4492 SPHOOD 


2532 

2427 

2511 

2525 

2434 

2442 

2530 

2540 

2556 

2448 

2457 

2468 

2470 

2478 

2480 

2468 

2493 

2500 

2553 

4460 

323 

333 

4213 

4189 


4196 

4200 

4204 

4216 

4455 


4040 
3757 
3998 
4000 
3762 
3774 
3776 
4017 
3809 
4028 
4037 
3842 
4050 
4054 
38 7 3 
3902 
3946 
3987 
3700 
3745 
3705 
3710 
3715 
37 2 Q 
3725 
3730 
3735 
3740 


SRI 

SRT10 

SRT10Q 

SRT110 

SRT15 

SRT20 

SR T 200 

SRT210 

SRT220 

SRT30 

SRT40 

SRT45 

SRT50 

SRT55 

SRT60 

SRT70 

SRT80 

SRT90 

ST 1 

STAblT 
START 
START 1 
STER3A 
STERR 


STERkl 

STERR2 

STERR3 

STtRR4 

ST0R1 


1 

T10 
I T 100 
I T 110 
IT 15 
IT20 
I T30 
IT390 
T 40 
T400 
T 460 
T50 
T 500 
T510 
T 60 
1170 
1T80 
. IT90 
TMU 
TMC10 
TM02 
IM03 

TMC4 

TM05 

TMC6 

TMC7 

TM08 


3507 

3438 

3449 

3463 

3466 

3477 


4HRTC1 

ZHRTCL 

ZHThi5 

ZHTHI7 

2HTH5 

ZN1 

2NT10 

2NT20 

2NT25 

2NT30 

ZNT35 


3586 

3593 

4372 

4416 

3497b 

3566b 

3571b 

3574b 

3579b 

3541b 

3548b 

3573b 

3560b 

35540 

3535B 

3530 

2439C 

2988 

3395 

3865 

24410 

3479 

2530 

2497b 

2526b 

2426b 

2492B 

2483b 

3806b 

2544b 

2451b 

2458b 

2506b 

2471b 

2472b 

2496b 

24800 

2534b 

2461b 

2548 

23990 

4665 

326b 

4208b 

463b 

756b 

11256 

1443b 

4194b 

41900 

4199b 

4189C 

26580 

3097 

3375 

4038 

2402b 

3992B 

3996b 

3758b 

4032b 

3777b 

3599b 

38010 

3769b 

3812B 

38340 

3794b 

4051b 

38650 

38950 

39400 

39730 

3793 

3965 

3826 

3857 

3887 

3917 

3922 

3927 

3932 


3510B 

3590b 

3547b 


244 7 
3001 
3441 
3915 
2479 
3553 

25190 

3059 

3443 

3959 

25210 

3653 

2524 

3113 

3466 

4296 

25790 

37650 

25770 

3135 

3525 

2607 

3800 

2588 

3147 

3622 

2699 

3833 

2589 

3201 

37630 

2938 

3864 

2664 

3269 

3791 

3083 

3894 

2909 

3332 

3824 

3226 

3939 

it 66 

3346 

3855 

3365 

3972 

2603b 

3839b 

2 703b 
38 /Ob 

2942b 

3899b 

3087b 

3944B 

3230b 

3985b 

3376b 

3483b 

3555b 

3657B 

2401 

2543 

3456 

3540 

3598 





486b 

765b 

1146b 

1494B 

501b 

79 IB 

11606 
1529B 

548b 

802b 

1193b 

1548b 

566B 

859b 

1218B 

1 704b 

600B 

870b 

123 IB 
1845B 

623B 

9006 

1286B 

1961B 

639B 

913b 

1335B 

2322b 

686b 

999b 

1415b 

, 7Q5B 
1077B 
l*32B 

41910 

41920 

41950 







4196 

2669 

31210 

42050 

26710 

31390 

4206 

2712 

31540 

42110 

29360 

32240 

4212 

2951 

3238 

29740 

3258C 

2992C 

32730 

30090 

32870 

308 ic 
33480 

3845b 

36/6B 

3905b 

3950B 

3997B 

3999B 

4000b 



3827b 

3858b 

3888b 

3933b 

3966b 






4451 

IMPi 

4270 

428 

12980 

1299 

13010 

1302 

17540 

18210 

1822 

1943 c 



19480 

1984 

2060 

2183 

25490 

2555 




4452 

TMP2 

12600 

13160 

1320 

18620 

1667 

1973 

1985C 

20610 

21840 

2541 c 



2556 

33980 

3404 







4453 

TMP3 

12670 

13110 

1312 

19330 

23120 

2313 

25470 

2548 



4454 

TMP4 

36660 

366 7 

3975C 

39760 

3977 

43530 

39790 

39810 

3982 

39930 

3994 



43450 

4346 

43480 

4350 

4354 

43560 



4499 


3489 

34910 

350 1C 

3567 

35690 

35820 





4502 

24180 

24340 

2550 

2552 

25870 

26450 

2910C 

30600 

32020 

3333 c 



34420 

4037 

24670 

35270 

3023C 

37800 

37920 

38250 

3656C 

38860 

39160 

3960C 

4496 

WOS UE 

2505C 

2583 

2614 

2643 

2925 

3071 

3213 

3250 

3279 



3349 

3371 

3444 

3640 

37720 

40300 




4512 

WCSTbL 

336 










320 

ZERO 

321 

323 

324 









ZHRTOC 

313 

3530 

4084 

40900 








312 

314 

316 

317 

315 
3505 
3425B 
3452B 
3457b 
3460b 
3472b 


3540 

3560 

34780 

35310 

4013b 

3496b 



TITLE CPPS4* *REV A* 


PAGE 60 


ENT 90 
ZV4AF 

3490b 

307 

2345 

3990 

4120 

4155 

4193 




ZV$ER 

310 

397b 

4 22b 

533b 

67 IB 

12366 

16436 

1650B 

16696 

16836 

1690B 

18546 

1878B 

18866 

19016 

2355b 

2530B 

25456 

ZVSLR 

ZVsRD 

2 73 1 b 
4124b 
308 
333b 

3035b 

4134b 

4295 

31806 

41596 

4312 

33116 

41696 

3422B 

41986 

35056 

35866 

3593B 

36846 

eVs 1 

426b 

429 b 

431b 

5366 

6746 

12396 

1300B 

1908B 

23616 


2369b 

2372b 

2376B 

23816 

253 IB 

25466 

255 IB 

262 IB 

27326 


3181b 

3312b 

3423B 

3506B 

3587B 

35946 

36856 

4Q396 

41316 


4166b 

4173b 

4204B 

42106 

4213B 

42246 

42336 

4242B 

4251B 

Z V$T C 

359b 

360b 

3926 

408b 

7756 

808b 

8826 

92 IB 

12896 

ZVsTP 

1911b 

4101b 

2378b 

2365B 

4280b 

4092B 

2430B 

4102B 

24316 

3669B 

37606 

3 7 61B 

4017b 

40916 

4VS.TH2 

ZV$TTY 

4286 

4139B 

309 

430b 

4174b 

12996 

4206B 

13026 

42126 

23676 

4265B 

2370B 

4325B 

23746 

23836 

25486 


604 LA6ELS 
3293 REFERENCES 
4665 RECORDS 
4 U FLAGS 
2 H FLAGS 
fa N FLAGS 

6 CROSS REF VERSION L - 24 
KS LINKER VtkSION 5.00 04/1 


LINK NAP FOR 

CPFS4 


START 

0100 


LOW 

0000 


HIGH 

1B4C 


CURRENT 

IB4D 


*LGC DBFS 
ZHCOMM 

0000 


*CPF S4 

0000 

REV A 

ZHPFK 

0000 


2HTSA 

0002 


2HNTSA 

0010 


ZHRTCI 

0014 


2HRTCC 

0015 


ZHRTCL 

0016 


ZHWDTC 

0017 


ZHHERC 

00 IF 


ZHIAFb 

0020 


ZHTH29 

0063 


ZHTH28 

0064 


ZHTH27 

0065 


ZHTH26 

0066 


ZHTH25 

0067 


ZHTH24 

0068 


ZHTH23 

0069 


ZHTH22 

006A 


ZHTH21 

0066 


ZHTH20 

006C 


ZHTH19 

0U6D 


ZHTH18 

006E 


ZHTH17 

006 F 


ZHMEMP 

006 P 


ZHTH16 

0070 


ZHLERR 

0070 


ZH THIS 

0071 


ZHNRES 

0071 


ZHTHIa 

0072 


ZHPNEN 

0072 


ZHTH13 

0073 


ZHP-OP 

0073 


ZHTH12 

0074 


ZHTH11 

0075 


ZHTH10 

0076 


ZHTH9 

0077 


ZHTH8 

0078 


ZHTH7 

0079 


ZHTH6 

00 7 A 


ZHQVFL 

007 A 


ZHTH5 

007b 


ZHGP-N 

007B 


ZHTH4 

007C 


ZHTH3 

007 D 


Z-HSC^N 

0O7D 


ZHTH2 

007 E 


ZhTRC 

007E 


ZHTH1 

007F 


ZHMCL 

00 7 F 


ZHISAZ 

0080 


ZHIVBb 

0080 


zhTvbs 

0080 


*ZV$TH 

1536 


ZVSTHZ 

155E 


ZV4TD 

156b 


ZV4TH 

1536 


*ZVSER 

1586 

REV» 5.0 

ZVSER 

1586 


ZVSTA 

1562 


zv $—0 

1599 


* Z V 41 

15F6 

REV. 5.0 

ZV4TC 

15FF 


Z VST 

15F6 


ZVSQ 

1608 


ZVSuC 

1613 


*ZV4cP 

1627 


ZVSGP 

1627 


ZV4—4 

1647 


*ZV4HA 

1653 


ZV4HA 

1653 


ZV4HZ 

165D 


ZV4HS 

1658 


*ZV4HD 

168C 


ZVSHD 

168C 


*2VSRD 

16DE 

REV. 7 

Z V $kb 

16bE 



1976 

1832.5 EST WED 



TITLE CPFb4 * *RE.V A* 


PAGE 


61 


ZVbAF 

16CF 

ZVbHR 

l6tl> 

ZVS>LR 

16EA 

ZVSUAT 

16CD 

ZVbbVi 

1893 

ZV$TTY 

16U1 

ZVbbVZ 

16A3 

ZVbGTP 

176b 

ZV4IZ 

16F8 

ZV$HM 

1734 

ZViHRO 

l6t7 

ZV5HRL 

Utb 

ZVJLRU 

16E9 

ZVSLRL 

16LA 

ZViHbU 

16tb 

ZVSbCF I 

loD9 

ZV*CF2 

16DA 

ZVTbTK 

16P6 

zv$lks 

16L3 

ZVibKF 

16L6 

ZV$—6 

16FO 

ZV4T1P 

16D0 

ZVbRMU 

16CE 

ZVSbUD 

16U2 

ZV$OLb 

IbUt 

ZVbfobR 

I6t3 

ZVSMCP 

IbLO 

HIBAUB 

16 LB 

ZVbRAR 

16P7 

ZVbRAw 

16U8 

ZVbbTl 

IbPB 

ZV$ROT 

18EF 

zv$ctl 

16U5 

ZVbbl 

1610 

ZVbRCX 

16UC 

ZVbRCu 

16UF 

ZVS5TR 

1611 

ZVbTST 

1946 

ZVhMDC 

1919 

ZV&R99 

1B17 

ZVblbA 

16F3 

ZVbUiH 

16LE 

ZVb3V3 

ltib3 

ZVbZRO 

1772 

ZVbbbh 

1774 

ZV4CPU 

16D4 

ZVSR6G 

1762 

Z VS>R6U 

176D 

ZVbRT 

1A64 

ZViALL 

16Q3 

*MLCHP<b 

IbiC 

MLCHPb 

iblC 

LhDCHP 

1B4P 


ZVSTC 

ZV*7FI2 

ZViT 


T ♦ V 





r 




